DISK DRIVE DIAG. PART 3 &P-DZARG6U-C-DL-A DEC 1976 


MD-11-DZR6J-C COPYRIGHT® 1976 
Pe Ee ee ea 





BS 
£ ESOL BE ION PEE sts striae tatoh tS om ~nrwn eure fi 


er 
—-—7 


DRIVE Sie sTie 


DE-OCT-7E 09:44 


PART 3 


MACY LI 


REM % 


7(1006) O&-OCT-7— 09:54 PAGE | SES 
IDENTIFICATION 
PRODUCT CODE: MAINDEC-11-DZREJ-C-D 
PRODUCT NAME: UNIBUS RKO& DISK DRIVE DIAGNOSTIC: PART 3 
DATE: DECEMBER 1976 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR: GARY PAPAZIAN 


SS a Rea : 
SUED nelG TN 1S wl Deke PR BRE ME Ber, 


ig SENSE SER, TD SE OR 


CaS SPIE COO Te SESE BELEN 


COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION 





me a ro ee 


S 


33 
RR POR Owe Jott e rds tbe Gen color Coto UTE tohuee Coen 2ded £ Gare fi 


. 
oO 


tw 
© 


4.0 


§.0 


6.0 


MACY 27( 1006) 





06-OCT-76 09:54 PAGE é 


TABLE OF CONTENTS 


ABSTRACT 
REQUIREMENTS 


2.1 HAROWARE 
e.2 PRELIMINARY TESTING GND PROGRAMS 


PROGRAM CONSIDERATIONS 


3.1 POP-11 FAMILY COMPATIBILITY 

3-3 ACT/APT 
-3.3 aT ETASLE DEFINITIONS 

3.4 DUAL ACCE 

3.5 MEMORY MANAGEMENT 

3-6 PoRITY ENABLED 

3.8 Berit ON Pe 

3.3 SOLAT 

3-19 C oN 8 FAILURE REE oe YSIS 
1} AULT UNIBUS ADDRESSES $ VE 

OPERATING PROCEDURE 8 CONTROL FUNCTIONS 

4. LOADING 

4.8 STARTING LOCATIONS 

4°3 C SWITCH REGISTERS 

4.4 SWITCH REGISTER 

U2 Brokat EX 

4.7 HALTING THE PROGRAM 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 


2-2 Fee CescRIPT IONS 
ERROR REPORTING 

6.1 ERROR INTERPRETATION 
b.2 ERROR PRINTOUT EXAMPLE 








Ol 


711006) 08-OCT-76 09:54 PAGE 3 SEG 2003 


tw 
o 

< 
- 
e- 
fl 





0 ABSTRACT 


TheoRE” thet THe. Dia rie "iE eh oF Be pave DuagwoRT es. ie: 
ERROR B BeTECTI N Logic hush BY MANUAL & SOFTWARE ERRORS FORCING. 
TER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS PART, 


ec: Bésen EFTED foe? THE BS Fe Me WE arti” SUCCESSFULLY 


HE STAND-ALONE vet MS OF NTERAC TION, & ERROR RATE 
ANALTS IS ARE LEFT TO 0 HER PROGRAMS, 


TING IS BASED ON A HIERARCHY APPROACH STARTING WITH 
IC LOGIC TESTS AND PROCEEDING THRU DYNAMIC TESTING. THE 
S WILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS. 


#ee24CAUT I ONSESEE 
WA TIN i te PROGRAM ANYWHERE BUT THE END OF p. Pass, 


YE ee HEADERS IN THE osx AATRE IDGE IN 
UNDE NED STATE. 


TES 
BRS 
TEST 


2.0 REQUIREMENTS 
é.1 HARDWARE 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


= a me ee ee ee. ee ee 


CONSOLE TELETYPE 

Tek RERORY 

KW11-L OR KW1I-P C 

ROE DNIBUS CONTROLLER (KELL) 
1 TO @ RKOG DRIVES 


NOTES: 1. IF NEITHER KW11-L OR P CLOCK IS USED, QLL TIMING 
TESTS WILL BE BYPASSED. A MES at T 
BEGINNING OF THE TESTS WILL CONFIRM THIS. 
2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 
2.2 PRELIMINARY TESTING 8 PROGRAMS 
THE RKG11 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU 
FOLLOWED BY THE RKOG DRIVE DIAGNOSTICS - PARTS 1 & 2. 


3.0 PROGRAM CONSIDERATIONS 
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3.1 POP-11 FAMILY COMPATIBILITY 
30 GS te son's + “aes BY THE POP-11/04,05, 10,20, 


IT IS COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST 


SESGNES P0'Be'bracnosticacY COMPRTABLE uiTH CHE AxetT. 


3.2 XXDP 
THIS PROGRAM SHOULD NOT BE CHAINED BY XXDP. 
CHAIN MODE OPERATION (MONITOR) 


BY DEFINITION, ANY PROGRAM THAT REQUIRES 
OPERATOR INTERVENTION SHOULD NOT SE CHANIED. 


DUMP MODE OPERATION (MANUAL ) 


NPUT DIALOGUE IF STARTED FROM 2 


AN BE T T THE RATOR IS FIRST GIVEN 
e ee SREPLACE, Tee. ac K IN WITH A SCRATCH 
< 


a2 ACT /APT 


THIS PROGRAM IS ACT COMPATIBLE. 
HOWEVER, IT SHOULD NOT BE RUN IN THE AUTO MODE. 


AUTOMATIC MODE (MONITOR) 

BY DEFINITION, ANY PROGRAM THAT (PEQUIRES 

OPERATOR INTERVENTION SHOULD NOT BE 

RUN IN THE AUTO MODE. 

DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 
3.2.1 APT ETABLE DEFINITIONS 


THE FOLLOWING INI TIONS VALID FOR SPECIF 
TABLE (ETABLE) ENTRIES, VIA ING THE APT UT 


1. SOFTWARE ENVIRONMENT 
=0 IF ST INE NODE 


é. ae oe ae MODE : 


YING APT ENVIRONMENTAL 
IL My PROGRAM “TSP”: 


ETABLE DOES SIZING 
= 0 PRO DOES SIZING 
BIT& =1 SPOOL MESSAGES TO APT IF SCRIPT MODE 
= 0 DON’T SPOOL TO APT 
BITS =1 SUPPRESS CONSOLE OUTPUT 
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= 0 ALLOW CONSOLE OUTPUT 
BITS 4-0 NOT USED 


 poutTen (SOFT: SWITCH REGIS 
Fenv eg hg. BIT 7 (SIZING BIT) ‘Is a 2 


mt aS 


&. MEMORY TYPES 1-4 AND MAX MEMORY RODRESSES 
NOT USED 


v - T VECTOR } 
ISEB HEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 
8. BUS PRIORITY | 
BSED uhEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = § 
§. INTERRUPT VECTOR 2: 
NOT USED 


10. BUS PRIORITY 2: 
NOT ise 


0-7 
BEIve To He GESTED. Sete Scie ARE NOY 


13. CONTROLLER DESCRIPTOR WORDS: 


14. DEVICE DESCRIPTOR CODES (IN WORDS): 
NOT USED 


DUAL ACCESS 

PROGRAM WILL pd 7s e rer oe a DRIVE 

gautPeD it WITH 4 CE Sy Mus eS ioe TO THe UNOER 
CONTENTION ITH THE OT 


DUAL ACCESS TESTS WILL GE INCORPORATED IN A SEPGRATE PROGRAM 
AT m® LATER DATE. 





7 Os ES ienseme sat ae Ps 1. DEFAULT = 177440 


Be ee, Cie w ig PEE cORRESPONO: ING 


SEG 2005 
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MEMORY MANAGEMENT 

MEMORY MANAGEMENT NOT USED 

PARITY CHECK ENABLED 

IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 

BAD SECTOR 

+3 : DATA ERRORS ee THE SAC Row. Se 
BPEL AMI" Bl DME an ER Poe EE 
EXECUTION TIME 


TT, ONE: SOB SBT BPH Sh MTT 


FAULT ISOLATION 
TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 
THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE SATE 
ANALYSIS. 


DEFAULT UNIBUS ADDRESSES & VECTORS 


THE FOLLOWING qs. 4 ste OF SSES 8 VECTORS 
OF ALL HARDWARE T Eb S “THEIR RENORY AOGRESSES 
WHERE THEY CAN BE CHANGE 


LOCATION DEFAULT CONTENTS 

RKO& BUS ADDRESS 1264 177440 
CONTROLLER ead a ay VECTOR 1 210 
SONTROLLER PR oni 1 240 
P-CL TAT G 1 172540 
P-ELOCK READ. BUFFER et 1Peeus 
r-ELock STATUS REE 346 1778M6 
Ret TERRUPT VECTOR 1350 100 
-CLOCK INTERRUPT VECTOR 1352 104 

Y KB STATUS REG 1144 177560 
TTY KB BUFFER 1146 177562 
TTY PRINTER STATUS REG 1150 177564 
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4.0 


4.1 


4.1.1 


%.1.2 


4.1.3 


4.1.4 


4.2 


TTY PRINTER SUFFER 11S2 177S6E 
OPERATING PROCEDURE 8& CONTROL FUNCTIONS 


PROGRAM LOADING 


EROCEGURE FOR ABSOLUTE LOADER TAPES; OF FROR ANY MEDIE 


SUPPORTED BY XXDP 
LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


STIS BAF TTR Pg cpt § UTD 
NOT To Be TESTED MUST HAVE BOTH PORTS DESELECTED. 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’ 
come OF THE RUN/STOP SWITCH IS IN THE "STOP’ 


PRESS *START’ 
THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN 
ts wad ogi THE OPERATOR TO DETERMINE DRIVES 15 BE TESTED 


THE PROGRAM BEGINS TERT ING ONLY THOSE DRIVES SPECIFIED BY 
A SPECI DRIVE CANNOT BE FOUND BY 


THE INPUT DIALOGUE. IF FIED BE 
PROGRAM IT 1 a i FL AN THE 
WAS NOT AVAIL . THEN BEGINNING WITH THE LOWEST NUMERICAL 
AND PROCEEDING IN SEQUE ID ORIVES 
WILL BE TESTED. ONE PASS QUENCE WILL BE 


: THE TEST SE 
PERFORMED ON EACH DRIVE BEFORE MOVING TO THE NEXT DRIVE 
IN SEQUENCE. THE DRIVE TO BE TESTED WILL BE TYPED AT THE 
BEGINNING OF EACH PASS. “END OF PASS” WILL BE TYPED AFTER 
TESTING ALL DRIVES. 


STARTING LOCATIONS 
LOCATION 200 - RIPRTING ADDRESS TO DEFAULT ne BUSS 
$8 THE CONTROLLER INTERRUPT VECTOR 
8 TEST ALL DRIVES IN THE *DRIVE PRESENT’ 


CONDITION 
NOTE: THE DRIVE PRESENT CONDITION IS: 
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Bo COaRECT PORT cet 2606 
c. 


ISABLE 
RIVE READY. INDICATOR ON 
LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 


cont INTERRUPT VECTOR INFUTTED ONLY ON 


IMPORTANT: oR YRekart one 4 Ue PRONE, 3 SEE ; Oe, ACT/APT 


SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 


SWITCH FUNCTION 
1S HALT ON ERROR 
14 ‘on ON TEST 
13 NHIBIT ERROR TYPEOUT 
le BYPASS DRIVE AFTER 20 ERRORS 
1] INHIBIT ITERATION 
19 BELL ON ERROR 
3 LOOP ON ERROR 


SW< 15> 


THE PRO PROGRAM HALTS ON ENCOUN TERING AN ERROR, AFTER TYPING OUT 
ERS SAGE AND PERTINENT INFORMATION, IF SW13=0. 


PRESSING. “CONTINUE” RESTORES NORMAL OPERATION OF THE PROGRAM. 


SW< 14> 


THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN 
Me Rh ae IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 

THIS SWITCH ode tM ERROR hatte NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9). 

SW< 12> 


THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SEG 0008 


a 
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4.3.5 SwW<ll> 
EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY AFTER THE 


fia iecauty 80, s IN SOME CA Ses). SevtING THIS. SUITCH TRHIBITS 
ITERATIONS, ‘3 that QUICK PASSES CAN BE 


4.3.6  SW<10> 
RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


4.3.7 SwWw<O% 


THIS SWITCH PROVIDES THE hu POSSIBLE SCOPE LOOP FOR 
ERRORS. IF PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 


4.4 *SOFTWARE’ SWITCH REGISTER 
THE PROGRAM DETER RUN Tha .- ght: ESS PROCESSOR (1.€. 


PROGRAM wie ot a Ee SWITCH REGISTER IS 
S TUARE’ SutT SUITCH ST S TED AT Fa ie (a) THE 
SETTINGS OF Rout ‘tae i shout Bett THROUGH 


NE WHICH IS coULeR 


SEG 0009 


AN 11/04 OR 11/34) 


A KEYBOARD ROUT Pr my a CON TROL G’. 
THE PROGRAM mii RECOGNI LL CONTROL Sa any TIME EXCEPT WHEN 
THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN_RKO* Fath 


THE *SOFT 5 TCH VALUES ARE ENTERED AS AN OCTAL | 
IN RESPONSE TO PROMPT FROM THE SWITCH ENTRY ROUTINE: 


SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTING ARE ENTERED, THE abe 4 SWITCH REGISTER 


IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT RE 


*RUBOUT’ AND ‘CONTROL U TA UNCTIONS MAY BE USED TO CORRECT TYPING 


ERRORS DURING SWITCH ENTRY 
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE *SOFTWARE’ 


SuITCH ets ree ey BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES 


MUST BE FOLLOWED. 


4.5 INPUT DIALOGUE 
THE DIALOGUE WILL BE DONE INTERACTIVELY. THE PROGRAM WILL 
DEFAULT 
BY A CARRIAGE RETURN. UNRECOGNIZED OR ILLEGAL RESPONSES WILL 


ECHOED all rULLOMED By "?". THE PROPER RESPONSE MAY 
THEN BE ENTERED 


a 
Ce ) 


r 
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4.5.% 


4.5.2 


4.5.3 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.4. 
DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


THE pero RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 
IN THE "DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 

TO BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE 
E.G. DRIVES TO BE TESTED: 1,2,4,6 

IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 & 3.2. 

BUS ADDRESS 

THE REQUEST WILL BE: 
TYPE IN BUSS ADDRESS IF NOT 177440 

THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


RE ASN MISEE SE CRERRZES=D #T eooness 220, 


unas ~ DRIVE DIAGNOSTIC 
MAINDEC-11-DZR&J-C-PB 
DRIVES TO BE TESTED: 1,3<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


SEG 0010 


UNIBUS RKE DRIVE DIAGNOSTIC 8 ae: 3 
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TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


W 
1 
3 


ILL TEST DRIVES: 


DRIVE 1 
(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


4.6 PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


one DRIVE DIAGNOSTIC 
MAINDEC-11-DZR&J-C-PB 
au. TEST DRIVES: 


1 


DRIVE 0 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. B88 


DRIVE 1 


DRIVE SERTAL NO. CCC 
CARTRIDGE SERIAL NO. DOD 


END PASS #1 


HILL TEST DRIVES: 
1 
DRIVE O 


CARYRIBGE SERIAL NO. 888 


DRIVE 1 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DODD 


END PASS #2 


(ETC) 


SEG O01! 
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4.7 


5.0 
$.1 


THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XXDP 


IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 


HALTING THE PROGRAM 


THE PROGRAM PROVIDES A METHOD OF lg ITSELF SUCH THAT 
THE CARTRIDGE AND/OR DRIVE IS NOT LEFT IN on UNDETERMINED 
STATE; IE: HEADS UNLOADED OR INVALID FORMAT. 


TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 


IF _HEADS ARE LomeD & FORMATTING IS VALID, 
THE PROGRAM WILL 


1. ECHO fC 
2. TYPE “CPU HALTED” 
HALT THE PROGRAM 


F_ HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID, 
HE PROGRAM WILL: 


DO THE TEST(S) THAT LOADS HEADS AND/OR FORMATS 
THE INVALID CYLINDE RS 
TYPE *CPU HALT 


3. 
I 
T 
1. con | tc 
- YPE *HALT PENDING, PLEASE WAIT’ 
4 
5S. HALT THE PROGRAM 


NOTES: 


l. THE ABOVE jFXQnPLe I§ FOR THE PROGRAM RUNNING IN 
MODE (MAN F THE PROGRAM IS RUNNING IN CHA 
MODE VIA XXDP,ACT,APT; IT WILL F RSI OAD HEADS 
AND/OR FORMAT CORRECTLY IF REQ’ N IT WILL 
JUMP ON 10 THE MONITOR WHERE. THE Next PROGRAM CAN BE 


THE TYPEOUTS WILL BE "ABORT PENDING - PLEASE WAIT” 
& “PROGRAM ABORTING” 


2. OPERATING THE *CONTINUE’ SWITCH ON THE CPU CONSOLE WILL RETURN THE 


SEG O0le 


PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1°ST DRIVE AGAIN. 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 
GENERAL 
OPERATOR INTERVENTION TESTS 


THESE TESTS CHECK OUT ALL THE DRIVE INTERLOCKS, FRONT PANEL 
SWITCHES AND LIGHTS. 


UNIBUS RKE DRIVE gt A B sani 3 
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BATOR GAs, INS TRUET OO acta A TEST 


OPERATOR INTERVENTION TESTS CAN BE SO 


YPAS 
GINNING OF EACH TES 


THE PROGRAM DETERMINES IT WAS LOADED UNDER 
BYPASSED UNLE ice tn INTERVENTION TESTS W 


IF 


D BY TYPING A one <tE>. ONLY AT_THE 
TRUCTED BY THE TYPEOUT. 
ILL BE 

S THE "LOAD & DUMP MODE’ IS BEING 


THEY WILL BE BYPASSED IN "MONITOR MODE’ AS OPERATOR 
INTERVENTION MAY NOT BE FEASIBLE IN OVER-NITE 


TEST DESCRIPTIONS 


HELLA RLL AA LA LRA A ARAL EA AL AREAL EERE LAE ELARELAL ERLE RELE LERELERLAEE 


BASIC 


CONTROLLER TESTS, SIZING & SETUP 


suracesenscensoneescashesdaceresenseoosanasenauensenusennnaseees 


TEST 1 


TEST 2 


TEST 3 


REFERENCE ALL CONTROLLER REGISTERS 


— TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
CAN ACCESSED. -THE INABILITY TO BE ACCESSED WILL 
RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE. ANY 
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER 
TESTS AND JUMPING TO ‘END OF PASS’ 


SIZE THE BUSS 


THIS TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 


EVERY DRIVE FROM O THRU 7 IS ADDRESSED. 
CONTROLLER ERROR {CERR) is EXAMINED AND IF NOT 

DRIVE WILL BE T FSET HE PROGRAM WILL sEtbasc” 
TESTING THAT DRIVES Baty. IF THE EBEoR WAS A RESULT OF 
MDS, UFE OR NED BEING SET; OR BOTH NED & DRA RESET IN- 
DICATING THE OTHER PORT IS ACCESSED. 

VERIFY OPERATOR DRIVE SELECTIONS 

THIS TEST Is ENTERED ONLY IF DRIVE SELECTION IS NOT 

EF EVERY DRIVE FROM 0 TO 7 IS ADDRESSED & 


. IF NOT SET THE ey 
PRESENT i nent HEN CHECK 


2 
& 
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ONLY IF THE ERROR WAS A RESULT OF MOS OR UFE SET OR BOTH 
NED & DRA RESET WRONG PORT) IF CERR 25_ A RESULT OF 
NED ONLY, IT IS CHECKED AGAINT THE INPUTTED INFOR TO 
VERIFY It WAS NOT SPECIFIED. 

TEST 4 FIND NEXT DRIVE TO BE TESTED 
THIS THIS TEST FINDS NOS THE NEXT DRIVE PRESENT 8 PUTS THAT 
FOROUcROUT re FOLLOWING TESTS, THE DRIVE TESTED IS 
THE DRIVE WHOSE ADDRESS IS IN 'DRVAD’. 

TEST S PRINT DRIVE SERIAL NUMBER 
THIS TEST PRINT VE SERIAL 8 FROM MSG A, WORD: 11 
IN DEC ie 3 BER IST PASS ONLY 


TEST & SET VV WITH PACK COMMAND 
IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
TEST 7 UNLOAD DRIVE TO BE TESTED 


THIS TEST UNLOADS THE DRIVE TO BE TESTED NEXT 
WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE. 


SEFASLLSFLAALELALSLAFSLASLLLESLASLSELELELASLLELALLSLELELELSLSELEL 


OPERATOR INTERVENTION TESTS 
SEFSSSESEPESSRESFESERELSSEELESSELELERAEEAERELASEESSSEREEESE SELLE 


TEST 10 INTERLOCKS TESTS 


THIS TEST rye eee THAT THE DOOR & ws a STATUS BITS 

ARE OPERATING PROPERLY IN MESSAGE AO & THAT THE REMOVAL 
HE CARTRIDGE CLEARS VOLUME VALID. 

IT FURTHUR VERIFIES ALL REMAINING STATUS BITS OF 


Ta A&B, WORDS 08 

TH ST ALSO CHECKS THAT THE SPINDLE CANNOT BE STARTED 
WHE’ THE CARTRIDGE IS REMOVED. 

OSs VOLUME VALID RESETS SACK WHICH 


TEST 11 UNIT SELECT PLUG TEST 


THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG 
HE QUAL LOGIC RESETS A B vo. D 

our OR VE. ects s NON EX [STEN DRIVE 

FURT IS ASKE _ INSERT 

UNIT erect PLUGS. THE PROGRAM L RE 


SES 0014 
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THE PLUG CODE NUMBER AS SOON AS IT IS - Aig 
THIS PORTION OF THE TEST IS TERMINATED AT ANY TIME BY & CONTROL-C 


TEST 12 PORT SELECTION TESTS 


[He OREO TOR Ae BSKED,, ue ch TO THE WRONG PORT 


IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 


TEST 13 FRONT PANEL RUN/STOP SWITCH TEST 


arse ee ne ews TO LOAD. pe oem TOR IS 
ASK VISUALLY VERIFY THE SEQUENCE OF Ag 080 


ED TO Vv 8 
UNLOADING BOTH MECHANICALLY & BY THE LIGHTS ON T 


ING 
FRONT PANEL 
TEST 14 AC LOW DETECTION PART 1 
A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED. 
BATTERY RETRACT WILL BE TESTED LATER. 
THE PROGRAM Wht or S_FOR AC LOW TO  BSEERT IN_RKMR3. 
4 AL ue POIN THRE IS APPROX 4 MS AVAILABLE BEFORE DC LOW ASSERTS 
ACE’ SHUTS DOWN. 
pi ingIcaTiON OF DC LOW WILL BE XISTENT DRIVE ASSERTING IN RKCS2. 
AFTER POWER UP, VOL VALID IS CHECKED TO BE CLEARED. 
TEST 15 CHECK NXF LOGIC 
mas TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 
AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 
TEST 16 READ & SAVE BAD SECTOR INFO 8& TYPE PACK SERIAL # 


THIS TEST VERIFIES THAT CYL 410, TRACK 
HIS AREA CONTAINS BAD SECTOR IN AF OR Mire 


icin 
= 


NG 
FUTURE TESTS WiLL BE BYPASSED. 
THIS IS DONE SO AS NOT “T0 DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


2 
aR 
2 
8 
ee 


TEST 17 WRITE LOCK TEST 


THIS TEST VERIFIES THAT DATA WRITTEN ON A SECTOR CANNOT BE 
ALTERED ONCE THE WRITE LOCK SWITCH HAS BEEN ENABLED. 
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IT ALSO CHECKS THAT WRITE PROTECT TAK ty Aad ONLY AT 
SECTOR BOUNDRIES WHEN DOING CONTINUO( ITING ON CYL 0, HEAD 0 


TEST 20 AC LOW DETECTION PART 2 


TEST 21 


TEST 22 


THIS TEST VERIFIES THAT WHEN AC POWER IS LOST, THAT WRITING CEASES 
AT SECTOR BOUNDRIES 8&8 THAT THE BATTERY RetRact 1s IS FUNCTIONAL. 
THERE IS APPROX 4 MS BETWEEN AC LOW ASSERT 

WHEN THE INTERFACE SHUTS DOWN. 


END OF PROGRAM 


THIS IS NOT A TEST BUT A LINKAGE TO oo ALL THE 
ABOVE TESTS FOR THE NEXT ORIVE PRESENT 
Mey 28 TEST IS ENTERED ONLY AFTER ALL DRIVES PRESENT 


BEEN TESTED. 
DO NOT LOOP ON THIS ’TEST’. 


MULTIPLE DRIVE DETECTION TEST 


THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 


THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 


A. HEADS MUST BE LOADED (SECTOR PULSES REQ’D) 

B. THE OPERATOR IS INSTRUCTED TO INSERT THE SAME UNIT SELECT 
PLUG NUMBER (1 PAIR AT A TIME) ON ANY 2 DRIVES 
TO BE TESTED 

C. THE OPERATOR 
OR A CONTROL-C TO EXIT THE TEST 


THE PROGRAM VERIFIES THAT MULTIPLE ORIVE SELECT & ORIVE UNSAFE 
BOTH SET & THAT THE DRIVE UNLOADS 


THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM SOTH DRIVES 


THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CASE. 


ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A 
cleat UP’ TEST TO PUT THOSE CYLINDERS BACK TO STANDARD 


6.0 ERROR REPORTING 


THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TES 





St ta ae 


Gre 





830 
891 
892 
893 
8S4 
83s 
896 
8s? 
896 
e939 
$00 
$01 
902 
303 
904 
30S 
$06 
307 
308 
dG 


Moin tore 


.0.0.0.0.0 0000 
0+ 02 0 bb 


wre-Owaon 


SE 
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6.1 


6.2 


ERROR INTERPRETATION 
AN ERROR MESSAGE IS PRINTED OUT, ALL REGI 
ete ‘DYER Dat DATA f EERTAINING, # ents ERE ERROR ARE ALSO GIVEN. 
AC INDICATE T 
CONTENTS ‘be Fre CORRESPONDING REGISTERS AT THE T 


VERY ERROR MESSAGE CONTAINS A PC. THIS PC INDICATES THE 


ne RESShoe, BechuSe OF PHACTICAL CONSIDERATIONS Is FOE 


Salt ie ae ee INSYARC a, tig ae er 


GIVE RISE T LE DELTBERA 


ag BETH, ee Pteat tah cai mes Dib ese 
BEGINNING OF EVERY Test. ALL THE RUMGERS GIVEN KTH 


RS SHEN WITH ERROR 
MESSAGES ARE IN OCTAL 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


ERROR PRINTOUT EXAMPLE: 


DEPRESS *RUN-STOP’ SWITCH TO_"RUN*’ WHILE DOOR OPEN 
VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD 


DEPRESS SPACE BAR WHEN FINISHED 
SPINDLE ON SET IN RKMR2 
AFTER MANUALLY LOADING HEADS WITH DOOR OPEN 

TEST NO. PC 
RKO Kes RK RK RK RK RKASOF 
Rees Petre BoBBoo 880. 846840 Gosiss Sodeon 
MESSAGE AO ERROR 
RFTER MANUALLY LOADING HEADS WITH DOOR OPEN 


ren NO. PC 

10 015736 

EXPECT EXPECT EXPECT EXPECT EXPECT EXPECT EXPECT 
AO 80 Al Bl Re Be B3 
jets ano0g0 ig 000001 

TUAL ACTUAL TUAL ACTUAL ACTUAL ACTUAL ACTUAL 
AO BO Al B81 Re Be B3 
050343 100000 001723 o00001 

RKCS1 RKCS2 RKASOF RKER RKDS RKDC 

040200 000103 o04000 000000 140301 9000000 


THE ABOVE EXAMPLE SHOWS EXPECTED & ACTUAL DATA FOR 


SEQ 0017 


tae 


o-« 


gare fp 
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MESSAGE REGISTERS AO, BO, Al 8 Bl. 
PESGSE PiaoBe BrPReuehbe Secceh? OY Aten BRpRede Ee” 
ME00 § SECTOR INFORMATION IS A VARIABLE PARAMETER OF 


\ 


’ 


{ ENO OF DOCUMENT ] 
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$ 

aA 


~NLIST CNO,MC,MO 
LIST 


ABS, AMA 
;DEFINE SYSMAC MACROS 
167400 $SWR= = =167400 ;DEFINE SWITCHES 15,14,13,11,10,9,6 
303032 $TN= 1 ;SET FIRST TEST NO. TO'1 


i UNIBUS RKE& DRIVE DIAGNOSTIC PART 3 
YRIGHT (C) 1976 
DIGI Tab EQUIPMENT CORP. 
# MAYNARD, MASS. 01754 


!APROGRA BY GARY PAPAZIAN 


tSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; #PACKAGE (MAINDEC-11-DZ2QAC-Ce), SEPT 14, 1976. 


‘Serte OPERATIONAL SWITCH SETTINGS 


LOOP ON TEST 

TNKIBIT ERROR TYPEOUTS 
ABORT DRIVE AFTER 20 ERRORS 
INHIBIT ITERATIONS 

BELL ON ERROR 


Wee eR eee ee 


eee ee ee ee ee oe ee ee oe 


LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
TTL SUMMARY OF STARTING LOCATIONS 


200 DEFAULT PARAMETERS 
20 INPUT PARAMETERS 
40 ODT11 





Brae since Crine Cee eae TOS PRE eeee 
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2 0 oo ee 
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Ow 


ie 


b+ b + 0-2 b= &* b+ 9 b—< © +b ~ b+ 0-2 b+ 2 2 bs 8 ob = 2 2 = hd + o-oo =» 82h 2h 2-2-2 m © 
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Oooo 
to 
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-SBTTL BASIC DEFINITIONS 
Geek 100 OF THE STACK POINTER ### 1100 ### 


-EQUIV ERROR :;BASIC DEFINITION OF ERROR CALL 
.EQUIV I0T,SCOPE :;BASIC DEFINITION OF SCOPE C 
pSMNISCELLANEOUS DEFINITIONS 

ATs 1 $3008 FoR HORIZONTAL TAB 

et tESDE ESR KARRIARE RET 

CRLF= 200 CODE FOR CARRIAGE RE TURN-LINE FEED 
PS= 77776 ;;PROCESSOR STATUS WORD 

EQUIV PSW 

STKLMT= 1 + STIS LIMIT REGISTER 

PIRG= 177772 ;;PROGRAN INTERRUPT REQUEST REGISTER 
DSWR= 177570 ‘HARDWARE SWITCH REGISTER 

DDISP= 177570 tS HARDWARE DISPLAY REGISTER 


piensa REGISTER DEF AN. ReciST TER 
Ri= “1 3 ; GENERAL REGISTER 


Ras ‘5 + OE NERAL REC TeTER 
R4= “4 eat ae RECT ETER 
= “5 ;;GENERAL REGISTER 
R= %~& ;;GENERAL REGISTER 
R7= “7 + GENE REGISTER 
SP= %* ::STACK POINTER 
Pcs “2? ::PROGRAM COUNTER 
-#PRIORITY LEVEL DEFINITIONS 
Pro= sO ;;PRIORITY LEVEL 0 
PRi= 40 ;;PRIORITY LEVEL 1 
ens ::PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PRY= 200 ;;PRIORITY LEVEL 4 
PRS= 40 ss Paro ty L ver c 
PRE= 00 + FER TOR TY LEVEL 6 
PR7= 340 ;PRIORITY LEVEL 7 
ft her REGISTER” ny os DEFINITIONS 
1S= 10000 
SwWi4¥= 40000 
13= 20000 
SWie= 10000 
SWlil= 4000 
SW10= 2000 
SWOS= 1000 
SWwOS= 400 
SwO7= 200 
SWOb= 100 
SwOos= 40 
SWwO4¥= 20 
SWO3= 10 


SEG 0020 
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BIT DEFINITIONS (BIT00 TO BITS) 
{ob60 


a8d0o 


WDWOOWMWMOMOMM—mwc-— 
DMOWMMMMwWMW 
4 O—-4 4 4-4 4 4 0 
AAA AA 
O-NWCUID IOw 


0-4 4 4 1-4 04 4 4 


inEES “CPU” TRAP VECTOR ADDRESSES 


33 TIME OUT AND OTHER ERRORS 
fea at la AND ILLEGAL INSTRUCTIONS 


i TRACE 1 
ern TRAP’ (LOT) **SCOPE#* 
; FE ag (EMT) ##ERROR#* 

i} TTY KEYBOARD VECTOR 


tity PRINTER VECTOR 
::PROGRAM INTERRUPT REGUEST VECTOR 


-SBTTL RKO& CONTROLLER REGISTER DEFINITION 
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RKO& CONTROLLER REGISTER DEFINITION : 
$BASE=177440 
TATUS REGISTER 1 
RO AP RELETES 
ae Sec TOR TER 
Fo eSIRe | BNO ST g REGISTER ¢ 
le DRIVE STATUS REGIS 
14 FERROR Fe GISTER 
16 ON SUMMARY AND OFFSET REGISTER 
5 ne ue INDER REGISTER 
4 
i: N Mi ( L 
a bee reais! Fe f (Meceace LIne a) 
30 OSITION INFORMATION 
32 fs PATTERN INFORMATION 
CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
DRIVE COMMANDS 
ECT DRIVE (GET STATUS) 
K ACKNOWLEDGE 
: DRIVE. CLE 
1 oth TART SPINDLE 
i3 pee 
17 ; 
21 DATA 
23 :WRITE DATA 
25 *READ HEADER 
27 ‘WRITE HEADER AND DATA 
31 :WRITE CHECK 
BITO :GO BIT 
BITS : INTERRUPT ENABLE 
117 :CONTROLLER READY 
BITS BUS RODRESS B T 16 
BITS BIT i? 
BITL0 R ORIVE TYPE (O=RKO6) 
BITle SOUTER (te SU ORMAT (O=22 SECTOR, 1=20 SECTOR) 
BITI3 :SERC ON PaeTY TERROR DETECTED BY CONTROLLER 
BT {DRIVE IN TERRUPT 
ITIS *CONTROLLER ERROR 
BITIS ‘CONTROLLER CLEAR 
CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
? ;MASK FOR DRIV CTION CODE 
oan iE ELECT OR RELEASE ORV In BITS O-2 
BITS | iB UBSYSTEN SB EnR REE ROLNERe AND ALL DRIVES 


JO0e2 


a a 


BEE Oro eo 


COrwoow 
ne 


Wit tU bar itete tt est Ub Altai sR. te ie rh Panera at aT 


rury 
£8 


ed PART 3 


K0e 


CONTROL “ANB SfaTUS Regist R 3° bits CRE 10) 


oa 
za 
iT) 


FRO omors 


BITé DUTbUT ee READY 
Bite ORT IEE OE ERROR 
BIT9 MULTIPLE DRIVE SELECT 
BIT10 : PROGRAMM ING ERROR 
Til :NON-EXISTENT MEMORY 
ate Uape Beet eee 
atti : Fe C ERBor 
BITIS :DATA LATE ERROR 
ERROR REGISTER BIT DEFINITION (RKER:14) 
BITO ; ILLEGAL FUNCTION CODE 
BIT i SEEK INC T 
T XECUTABLE FUNCTION 
BIT3 :DRIVE DETECTED SERCON PARITY ERROR 
Bits ;F ORM ERROR 
TS ‘DRIVE TYPE ERROR 
BtTe ES SECTOR ERR 
Btte > HE vee ERR 
BITS “CYLINDER ADDRESS OVERFLOW ERROR 
BITi0 ; INV ID DISK RODRESS ERROR: HEAD/CYL 
Tl LOCK ERR 
BITle DRIVE TIMING ERROR 
BITI3 ‘OPERATION (SEARCH) INCOMPLETE 
BIT14 :DR 
BITIS :DATA CHECK 
STATUS REGISTER BIT DEFINITION (RKDS: 12) 
BITO ; DRIVE AVAILABLE (CONTROLLER IS SET IF 
: THIS BIT IS RESET) 
BIT2 :DRIVE OFFSET 
BIT3 -AC L 
BITY s0C L 
BITS :DRIVE OFF TRACK 
BIT “VOLUME VALID 
BIT? “DRIVE READY 
BITS *DRIVE TYPE (O=RKO6) 
BIT11 “WRITE LOCK 
BITI3 ;POSITIONING IN PROGRESS 
BITIY *DRIVE STATUS CHANGE 
BITIS :STATUS VALID 
MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 
17 iMES SAGE MASK 
BIT4 ORCE EVEN PARITY ON SERCON MESSAGE LINES 
BITS tO TeCNOSTIC. MODE 
BITS ‘MAINTENANCE SECTOR PULSE 
BIT7 : MAINT xX 
BITS “MAINTENANCE CLOCK 
BITS i MAINTENANCE ENCODED READ DATA 
BITIO *MAINTENANCE ENCODED WRITE DATA 
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MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) - 


PCA= BITI1 ; PRECOMPENSATION —— 

PCD= BITle : PRECOMPE NSATION DELAY 

EC = Bitte ret WORD OE BEING READ OR WRITTEN 
GAT= BITI4 

RDGATE= SITI1S : READ oATE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A (RKMR2:34) 


D.DORA= BITS ;DRIVE AVAILABLE 
D.VV= BIT6 ; VOLUME VALID 
D.ORDY= BIT? ;DRIVE READY 
D.DDT= BITS ;DRIVE TYPE (O=RKO6) 
D.FORM= BITS ;DRIVE FORMAT 
D.OFF= BIT10 ;OFFSET ON 
D.WRL= gtttt ;WRITE LOCK 
D.SPIN= BIT1 ;SP1 ON 
D.PIP= BIT13 ;POSITIONING IN PROGRESS 
D.0SC= BIT14 ‘DRIVE STATUS! CHANGE 
.SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A (RKMR2:34) 
D.SSP= ait ;SERVO SIG PRESENT 
D.HDHM= BITS ; HEADS HOME 
D.BRHM= BIT6 ;BRUSHES HOME 
D.DOOR= BIT7 :DOOR INTERLOCKED 
D.CART= BITS :CARTRAGE INTERLOCK 
D.SPOK= BITS :SPEED OK 
B-pe BtTtO 3F 

-REV= Til ;REVER 
D.LOAD= BITle2 ;HEADS LOADING 
D.RTZ= BIT13 ;RETURN TO ZERO 
D.UNLD= BIT14 *HEADS UNLOADING 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O0 MESSAGE B (RKMR3: 36) 


D.IDAE= BITS Fy DISK ADDRESS ERROR: HEAD/CYL 
B- Br O= BIT6 LOW 

-FLT= BIT? i DRIVE FAULT 
D.NXF= BITS ;NON-EXECUTABLE FUNCTION CODE 
D.PAR= BITS ; DRIVE DETECTED SERCON PARITY ERROR 
D.SKI= B8IT10 ;SEEK INCOMPLETE 
D.WLE= BIT11 ;WRITE LOCK ERROR 
D.SPLS= BITle ;SPEED LOSS 
D.DROT= BIT13 ;DRIVE OFF TRACK 
D.UNS= BIT14 :R/Wd UNSAFE 

-SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3:36) 
D.SECT= BITY ;SECTOR ER al 
D.WCUR= BITS WRITE CURRENT AND NO WRITE GATE 
D.WGAT= BITE ;WRITE GATE AND NO TRANSISTIONS 
D.HDFL= BIT? 
D.MHD= BITS {MULTIPLE as SELECT 
D.XERR= BITS ; INDEX 
0.TIB= BIT1O ; TRIBIT ERROR 
D.PLO= BITL1 ;PLO ERROR 


en ne ee 


sii 
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MOe 
BEF INETEON * Brive Status 8 vied 01 hese B (RKMR3: 36) — 


.NMOV= BIT1 
Ee ER py ay _ 
.SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2:34) 
M.DRV= 7 sDRIVE CODE, ALL BYTES 
M.CDIF= 17760 :CYLINDER DIFF, BYTE 10 
M.OFST= 17760 :OFFSET VALUE, BYTE 10 
M.SER= :DRIVE SERIAL’ #, BYTE 11 
.SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
M.ID= 3 BYT 
M.CADD= 17760 ; CYL INDE NOpR AOORESS, BYTE 10 
M.ALGN= BIT14 *AL BYTE 10 
M.SECT= 760 OE CSOR STENT. BYTE 11 
M.HEAD= 7000 *HEAD DECODE, BYTE 11 
M.PAR= BITIS *PARITY, MESS A/B, ALL BYTES 
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DZR6IC.F11 06-OCT-76 09: COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 
1 
158s -SBTTL TRAP CATCHER 
1e84 000000 
1e8s L unlsen LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 
le fests 0 CATCH ILLEGAL TRAPS AND INTERRUPTS 
15a 009174 —_— o CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
lee3 000174 000000 S pisprecs ORD 0 ;; SOFTWARE DISPLAY REGISTER 
1e90 000176 000000 SWREG: _.WORD O ;; SOFTWARE SWITCH REGISTER 
1e91 : -SBTTL STARTING ADDRESS(ES) 
isos O0ce08 000137 010060 IMP 20 @sSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
128s 000220 Bora? 010050 INE PARSRT ; INPUT ALL PARAMETERS & START TESTING 
1eS6 000240 .=240 
44 000240 000137 062002 JMP 0.007 ;ENTER ODT11 
le -SBTTL ACT11 HOOKS 


1300 

1301 « KEK SERLERERAL EL LEA SHLA LEA RALE RELA LRA SHALL ARASH E RL ARK AKA RAARERAZEE 

1302 HOOKS REQUIRED BY ACT11 

1203 o00244 $SVPC=. :SAVE PC 

1304 000046 246 

130 000046 be4470 SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
1307 ooo0s2 S060 “WORD 120000 ;;2)SET LOC.52 TO 120000 

1308 000244 ; =$SVPC : RESTORE PC 

1309 001600 21000 

1310 .SBTTL APT PARAMETER BLOCK 

13le = RKEKSS RASA LALA RE KARR RAKE RARE LAL RAA RAE H ALLE RA AAREAAAERARRAKAEE 

1313 iSE1 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

1214 Tila! >aiianbbt-1-1-at'T-- ag bs plein 

1315 001000 .$X=. ;SAVE CURRENT LOCATION 

1316 0024 "24° iteer POWER Part TO POINT TO START OF PROGRAM 

1317 00024 o00200 200), ;;FOR APT START UP 

1318 900044 :POINT TO APT INDIRECT ADDRESS PNTR. 

1319 o00044 001000 SAPTHOR t POINT TO APT HEADER BLOCK 

1320. - 001000 .$X  ::RESET LOCATION COUNTER , 
1321 ; -susnaniniteansdbossesacaseteesSee si THSGHEEEGSEEESSESELESEEES g 
1322 dF Tup APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

1383 INTERFACE SPEC. 

1325 001000 SAPTHD: 

1326 001000 ooo000 $HIBTS: .WORD O 17M HIGH BITS OF 18 BIT MAILBOX ADDR. 

1327 001002 001210 SMBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

1328 901008 go0454 STSTM: .WORD 300. RUN TIM OF LONGEST 

i 001006 001130 SPASTM: :WORD 600. i RUN TIME IN SECS. OF IST PASS ON 1 UNIT (QUICK VERIFY) 
1330 001010 001130 SUNITM: .WORD 600. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
133) 001012 000052 “WORD  SETEND-SMAIL72 ;;LENGTH MAILBOX-E TABLE (WORDS) 

EE ust 1 

1335 

1336 ; 
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RPT PARGMETER BLOCK = 


;USE LOOP xX TO OMIT SUBCLR 


: THIS MACRO FILLS EXPECTED MSG AQ, 80 Al Bl, A2, B2 8 82 WITH ST iC 
:BITS SEE A=D.0SC AFTER ATTN OR O'AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 
:NOTE: A CAN BE ANY BIT COMBINATION DESI 

I THIS MACRO ASSUMES DRIVE MSG AO, BO, Al, B1 WILL ALWAYS BE TESTED 

: USE 8.¢.0 E FOR MSG AC, 80, Al, 61 ERROR NUMBERS 

: USE =T'Ad TO READ mst Be 8 PUT INFO INTO *CYLDIF’ 

; H=T.B2 TO READ MSG Be & PUT NEG INTO *CYLAOD’ 

; I=7.B3 10 READ MSG B3 8 PUT INFO INTO ‘SECTOR’ & *HEADA’ 

:USE =<ERROR DESCRIPTION) 


ta=eCYL DIFF/OFFSET ERROR # 
'B=CYL ADDR ERROR 8 
TERROR DESCRIPTION) 


; ReWRHEAD/ <CFNT!WRHERD) 
: USE WRHDR <A>.X TO OMIT CHECKING AO, 80, Al, 8! 


 RERDHEAD/<CFMT!RDHEAD> 
tue ROMER <A> X TO OMIT CHECKING AO, 80, Al, BI 


t ReTOCYL/FRCYL , BsHEADS, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR 


‘QUICK SEEK. ENTER WITH CYL# IN RKDC 


' R=WRDATA/< CFMT!WRDATA 
C= ADDR TO IMP TO ATTENET TO pHRITE ON ANOTHER SECTOR 
;D=ADOR TO JMP TO BYPASS TEST 
IF BLANK WILL K AO, BO, Al & B1 AT THE END OF WRITING 
4¥ IF NON BLANC WILL OMIT CHECKING AQ THRU B! 


SOG REARS 


dich 


td 


med Ce) ere ve 09:54 PAGE 28 


TASRODATA’<CFMT!RODATA? 
SE RpATA ROX TO OMIT CKWDL2 


S REMRTCHK of Toe 
FOR 


6 
iSarias° Berta FR — MSG USED IN °SBOUND’ ROUTINE 
WRCHK <A>,C,X TO OMIT CKWOle2 


0 TEST THAT WRITE CHECK OCCURRED AT SECTOR BOUNDRY 
138 FOR WRITE PROT crs su TEST 

: 137 FOR AC 

:C=2JUMP ADDR TO REBERT" Tee 


FOQUICK START SPINOLE 
TROUTINE TO ISSUE PACK COMMAND 
QUICK UNLOAD 
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~SBTTL COMMON TAGS 


fy RRRRSRESESESEESESEREE EEE PESSSSSERE SE ELE LEE RELERSESES ESE EEL ES ESS 
:4THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 


-21100 
SCMTAG: aks. :;START OF COMMON TAGS 
STSTNM: “BYTE 0 ;;CONTRINS THE TEST NUMBER 
SERFLG: . 0 :: CONTAINS ERROR FLAG 
SICNT: .WORD O CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
ba ie EEN Sole Geet bene taS" 
STTEMB: “BY 0 tT ONTAINS 1 CONTROL 
SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 t:CONTAINS PC OF LAST ERROR INSTRUCTION 
$0808: “WORD 0 ;s CONTAINS ADDRESS OF *GOOD’ DATA 
: .WORD QO ;;CONTAINS ADORESS OF *BAD’ DATA 
SGDDAT: .WORD 0 ?:CONTAINS 'GOOD’ DATA 
SBDDAT: :WORD 0 ::CONTAINS "BAD’ DATA 
oe iH ;;RESERVED--NOT TO BE USED 
TOB: .BYT’ ; sAUTOMATIC CATOR 
STATE: By 6 :: INTERRUPT MOpE ND TkaToR 
OSwWR 


SOE OE UL LENE 
ER 


;;1TY SUF 
3;TTY PRINTER STATUS REG. ADDRESS 
;;TTY_PRINTER BUFFER REG. ADDRESS 


- 
aes 


Paveas® 


: .BYTE O ;;CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE: 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE. le 3 RT FILL CHARS. AFTER A “LINE FEED” 
STPFLG: .BYTE OQ :;" TERMINAL AVAILABLE” FLAG (BIT<07>=O0=YES) 
$TMPO: .WORD OQ ;;USER DEFINED 
$TMPi: .WORD 0 ;;USER DEFINED 
STMPe: .WORD OQ $3 DEFINED 
STMP3: .WORD O ;;USER DEFINED 
STMPY: .WORD 0 ;;USER DEFINED 
STMPS: .WORD OQ ;;USER DEFINED 
STIMES: :;MAX. NUMBER OF ITERATIONS 

;;ESCAPE ON ERROR ADDRESS 


SASCIZ (207><377>«377> ::CODE FOR BELL 
s?/ $3 STION MARK 
«15> :: CARRIAGE RETURN 
. er (12> : FEED 
;  REERESRARREREEESELE ADRES ERROR EARS EEREEEERELEEERERESREREE EERE EE 
"SBTTL APT MAILBOX-ETABLE 


7 pete eure aonte ws Naas aes ante Ar ennai te nem A ati: 
N 


$MAIL: :;APT MAILBOX 
SMSGTY: .WORD AMSGTY ;:MESSAGE TYPE CODE 


e4SStm 
ere 
a 
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: CPU TYPE, OPTIONS 
bits IS-L1SCPU TYPE, 1120203, 11/4204. 11/4820 
{/7o=te: Poeb?o216 


BIT 1O=REAL TIME 
Bit OATING POINT PROCESSOR 
H 


300 NSEC BIPOLAR=002 
MOS=003 


eoecuna | 
eee 


VECT2: T2 :LINTERRUPT VECTORS2HUS PRIORITY #2 


EQUIPMENT UNDER TEST 
ROLLER DESCRIPTION rite | 


Bee 


DEVICE DESCRIPTOR WORDS]3 
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APT MAILBOX-£ TABLE _ 


SODW14: .WORD ADOWIY ;;DEVICE DESCRIPTOR WORDS14 
$O0WiS: .WORD ADDWIS t IDEVICE DESCRIPTOR WORDS1S 


SETEND: 
ABASE= 177440 ;DEFAULT BUSS ADDRESS 
aE: ate DEF T CONTROLLER INTERRUPT VECTOR 
RKPRI: ;PRI Y 
PKS: 172540 :P-CLOCK peruse G 
eke 17eS4e 3;P-CLOCK SET 5 
PK 172544 s;P-CLOCK READ SUFFER 
LKS 177546 sL-CLOCK STATUS REG. 
LCVEC: 100 sL-CLOCK INT any CTOR 
PCVEC: 104 :P=CLOCK INT CTOR. 
= 114 
= {32100 i MEMORY PRETTY NESTOR CSR START ADDF 
TRAPPC: O ;PC FOR MEMORY PARITY ERROR TRAP 
PARAM: 8 1 FOR 220 START, NO DEFAULT 
FTITLE: ‘Fiat FOR PRINTING OUT 1ST PROGRAM TITLE 
DRVPTR: O sCONTAINS THE POINTER TO THE DRIVE FLAG 
: (DRIVO-DRIV?) THE DRIVE TO BE CHECKED NEXT. 
= 40 SAR 
FRCYL: QO 3;FROM CYLINDER 
OCYL: O ;TO CYLINDER 
CCYL: 9Q : CURRENT CYL, USED IN N SQUARE TEST 
PCYL: QO PREY avinn ay n N re TEST 
CALDIF: 0 CALC C Doth SQUARE TEST 
CYLDIF: O 3CYL DIFF, “hed he IFIED aa RKMR3 
CYLADD: 0 *CYL RIGHT JUSTIFIED FROM RKMR3 
CALADD: 0 :CYL ADDR’ utes IN Te tee Bout INE 
HZ: 60. 360 FOR 60 CPS 
350 FOR SO 
COUNT: 9 *LOADED TO SO OR 60 TO COUNT TO 1 SEC 
: OR ANY OTHER NUMBER TO COUNT Ore FRACTIONAL SECOND 
SEC: 0 : SECOND COUNTE 
TIMUP: 0 :FLAG TO INDICATE TIME IS UP 
SECNT: QO SECT OR COUNT 
PSEC: QO ;PREVIOUS SECTOR 
ESEC: O gad 
SECTOR: 0 CTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
Tl: 1 ; TIMEOUT CONSTANTS 
T10: 10. 
TSO: SO. 
TS00: $00. 
T7100: 100. 
T5000; S000. 
TS0°00: $O000. 
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1604 
1605 o01442 900077 CYL: 63. s CYLINDER RS USED IN 
aay 22 ig? + ER AUOE CROS ane 3, 
i due $ 
1 1450 acs: 
1 001452 000477 319. 
1610 001454 000577 383 
1618 90145 900000 TIMI: 0 USED IN TIMING TESTS 
1613 001460 oOo00000 Time: 9 
1614 001462 900000 TIM3: 0 
1615 001464 000000 TIM: 0 : 
1S corse ocoo00 LPCNT: 0 LOOP CTR USED IN CALCLK 
161g 001470 000000 LPTIM: 0 LOOP TIME IN USEC 
1620 oo0000 SUM: 0 sLO ORDER FOR TIMING TESTS 
i621 | 6 tHI ORDER FOR TIMING TESTS 
1g22 SuUMI: 0 ?L0 ORDER FOR TIMING TESTS 
1683 0 ‘HI ORDER FOR TIMING TESTS 
: : TA WORD 
ie B 8 SRY 
1628 OFFERR: 0 :SET WHEN WRITE CHECK ERROR ON OFFSET 
1e31 OIE 
es . 
tees BB tere HEA, 9 H.B3, RT. JUSTIFIED 
1633 001514 HD1: 0 SIFTED HEAD® FOR FORMATTER ROUTINE 
1624 OOI516 FoomaT p 
1 1 FMTI: ISHIFTED FORMAT FOR FORMATTER ROUTINE 
1636 O0lSe2 MCN: 0 :WORD COUNT 
1638 001524 DATAO: O ALL O°S 
1639 001526 DATAOI: S2se5 0101 PATT 
1640 001520 DATA: 177772 ZALL 1°S 
ib4e arte ppRTE: $3238 
1644 001536 WORD: 0 sHEADER/DATA WORD 
1645 001540 HDWD: 0 HEADER WORD FROM RKDB 
1647 o01542 BSERR: 0 CANNOT READ BSE INFO WHEN SET 
1648 O015 LIMERR: 0 sLINIT DETECT ERROR FLAG 
1649 001546 MOSERR: 0 IVE SEL ERROR FLAG 
650 01550 BYPCERR: 0 :SET TBRt TO BYPASS CKCERR IN ’GSTATI’ 
1661 001552 CHKFLG: 0 : WORDS 10 BE TESTED 
£26 o01ss4 HDTAB: .BLKW 66. CALCULATED HEADER WORD TABLE 
1654 O01 RHTAB: ‘BLKW 66. :FILLED AFTER READ HEADER CND 
1655 O0C1E4 SRTTAB: .BLKW 66. ZABOVE RHTAB SORTED STARTING FORM 
1656 'SECTOR 0 BY SORT ROUTINE 
1657 002370 BSE22H: .BLKW 256. :22 SECTOR HARDWARE BSE INFO. 
1658 002370 BSES2S: {BLKW 256. :3 SECTOR SOFTWARE BSE INFO. 
1658 004270 ROTAB: {BLKW 256. tFILLED AFTER READ DATA CMD 


a rn re 
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1683 o0S424 
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T MAILBOX 

UNLD: OQ ET 18 0 ie ee ARE LOADED 

BEOHOR: 0 Te ett enn 

HPEND: 0 ‘aE 10 0 te act NOt BENDING 
;SET TO 1 IF HAL t PENOTNe 
; THE AG 
EBS RMS Oa 
;THE CPU TO A VALID HALT. 

ATTN: .8YTE 1,2,4,10,20,40,100,200 ;ATN O-7 RESP. 

THE FOLLOWING + WOLDING REGISTERS FOR THE Pxb ht REGISTERS 

:THEY ARE LOADED AFTER RDY IS REC'D FROM WROY ROUTINE. 

HCS1: OQ ;HOLD RKCS1 

HCSe: QO ;HOLD RKCS2 

HWC: 0 sHOLD RKWC 

HBA: 0 ; 

HDA: 0 

HOS: 5 

HER: 

HASOF: QO 

HDC: 0 

HDB: 0 

HMR1: OQ 

HMRe: 0 

HMR3: 0 

HPOS: OQ 

HPAT: 0 

TEMP1: 8 ; TEMPORARY STORAGE. 

TEMPe: 

TEMP3: QO 

EMP4: QO 

TEMPS: 0 : 

; THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(O-3) 8& MSGB(O-3). 

hao: oO 

H.80: 0 

H.Al: OQ 

H.B1: 0 

H.Ae: OO 

H.Be: QO 

H.A3: QO 

H.B3: 0 

THE FOLLOWING ARE *EXPECTED’ REGISTER FOR THE ABOVE. 





ies oe 
1723 oo00oce 
1730 000004 
1731 
fe 
1734 
1735 


pute SEAR 
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00000000 


;THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 


t .A2=BITO ; TEST MSG A2 IF SET 
T.B2=81T1 
T.83=81T2 


PALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


D ; @ ;FLAG - SET N IN nos 

DDPCH: 0 :FLAG - T Heh iN Boe iat CHAIN M 

ACT11: QO sELAG - 1 MODE OF OPERATION 
PPTP: Q ;FLAG - a N PROGRAN * ORDED BY PAPER TAPE 
DRIVS: 0 ; CONTAINS THEN NUMBER OF DRIVES PRESENT 


;THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
IS PRESENT AND IS TO BE TESTED. 


pe vo: S sELAG T v9 1 WHEN DRIVE O PRESENT 
DRIVe: 0 FOR DRIVE 2 
DRIV3: QO ;FOR DRIVE 3 
DRIV4: O ;FOR DRIVE 4 
DRIVS: O ;FOR DRIVE 5 
ORIVé: O ;FOR DRIVE 6 
Iv?7:; 0 ;FOR DRIVE 7 
LCLKF: QO ;L-CLOCK FLAG PRESENT ptne 
PCLKF: 0 ;P-CLOCK FLAG PRESENT FLAG 
DOTIM: Q SET IF EITHER CLOCK PRESENT FOR TIMING TESTS. 
SIZFLG: 0 SET IF DEFAULT DO SIZING IN TEST 1 
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ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 
sens ookae CONTAINS THE aR ght FOR_EACH ERROR per CAN OCCUR. 
ee a ree ad 13 15 NUMBER T ier NUMBER FOUND IN 
SALOER ION SITEMB. THI a ES WHICH ITEM IN THE HF io PERTINENT. 


SEG 9035 


: ¥NOT Y PERTINENT 
sSNOTE: Bock! ifen tn IN Fue Taare CORR AINE 4 POINTERS EAP Seer AiNeD AS FOLLOWS: 
;* M 33 THE ERROR MESSAGE 
cf HPOITS 18 TE ROR esses 
:# + EOINTE 1 THE BATA FORMAT 
SERRTB 
sERROR 1 
Me ;DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 
DT1 
OF 1 
ERROR 2 
EMS :DETECTED MDS 
DH1 
OT1 
OF 1 
;ERROR 3 
EMG sDETECTED UFE 
OH1 
OT1 
OF 1 
sERROR 4 
EN? ;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 
OT1 
OF 1 
;ERROR 5 
ENG ;DR PRESENT BUT NOT SPECIFIED BY OPERATOR 
DT1 
OF 1 
ERROR 6 
EN ;DR NOT PRESENT BUT SPECIFIED BY OPERATOR 
prt 
Fl 
ERROR 7 
EMO ;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 
OT1 
OF 1 


2 
am 


‘ 


coco oD co ”D 
0-0 b-* = 
WOnorwmsc Cc 


SS SRLORH SRSA TOROS ETON TS 


a a aad aa a 
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;ERROR 10 


;DRA & NED BOTH SET 


ATER WRITE DATA CMD 


;CERR SET 


: Y 
iAP TER READ DATA CMD 


;CERR SET 


;NO_RDY 
;AFTER WRITE CHECK CMD 


E CHECK ERROR SET 
R WRITE CHECK CMD 


CONTR NOT RDY 
tAFTER UNLD CMD 


;NO ATTN 


;DATA CHECK ERROR 
;AFTER READ DATA CMD 


sCERR SET 
tAFTER WRITE CHECK CMD 
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PRINTER TABLE : vee Nemes! 


3 
EM18 ;MSG_BO ER ROR 
AFTER WRITE DATA CMD 


ates ‘SP TER SCLR 


;MSG B1 ERROR 
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;AFTER READ DATA CMD 


;VOL_VALID NOT SET 
AFTER PACK CMD 


DRT Bl _ ERROR 
AFTER READ DATA CMD. 


;MSG BO ERROR 
AFTER WRITE CHECK CMD 


;MSG B1 ERROR 


;VV_NOT CLEARED 
AFTER PACK RE-INSERTED 


;NO DRIVES FOUND IN DEVICE MAP 


;MSG_AO ERROR 
AFTER AC SW OFF 


;MSG Al ERROR 


;MSG Al ERROR 
SAF TER OFFSET CMD 
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;DETECTED 10 BAD SECTORS 
:AFTER WRITE DATA CMD 


;WRONG ATTN 
:AFTER UNLOAD CMD 


;DRDY NOT CLEARED 


sDSC NOT SET 


;DOOR NOT CLEARED 
AFTER DRIVE UNLOADED & DOOR OPENED 


;MSG AOD ERROR 


;MSG BO ERROR 


;BSE_ERROR_IN WRITE CMD NOT ON BSE TABLE 
AFTER WRITE DATA CMD 


;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 


;WRONG CYL#® IN HEADER WORD 
AFTER SEEK CMD 


;MSG AD E 
: AFTER WRITE DATA CMD 
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;MSG AO ERROR 
:MSG BO a 
;MSG Al ERROR 
;MSG 81 ERROR 


NOT CLEARED 
PACK REMOVED 
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; ERR 75 


;MSG 80 ERROR 
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— 
oeom 
tT = 
Te ee 

Ww Oo 


is) 


09:54 PAGE 44 


EER CORRECT PORT SELECTED 


3;NO ROY 
;AFTER SEEK CMD 


sNO ATTN 


;NED NOT SET 
:AFTER BOTH PORTS DESELECTED 


K_NOT SET SECTOR BOUNDRY 
WRITING WITH WRL ENABLED 


;AFTER WRITE LOCK ENABLED WHILE WRITING 


;AFTER WRITE LOCK ENABLED FROM AC OFF 


;SPINDLE ON NOT SET 
AFTER DRIVE MANUALLY LOADED 


;DRIVE NOT READY 
AFTER AC POWERED UP 


007176 


2231 


pi 
si 


SeaeeeeU eran 


oO bb 2 b= 8 Be be 
L000 NOU © Wf 


Tm 
LX) 





ain Ft 


061172 


061172 


i PART 3 


noe PA ApROL Db -OCT-76 03:54 PAGE 45 


sERR 143 


PULA Net SBIR’ comp 


EM13 ;NO ATTN 
34 


EM3S ;HEADS NOT HOME 
;AFTER MANUAL UNLOAD 


;CERR NOT SET 
:AFTER TIMEOUT TO POWER DOWN 


EM37 ;AC LOW NOT SET 


Bs ;NED NOT SET 


2 s;NO_RDY 
DHee s;AFTER CLEAR CMD 
EMY3 ;AC_LO NOT CLEARED 
?AFTER AC POWERED UP 


sVV NOT CLEARED 
sATTN NOT CLEARED 


EMYS ;VV_SET AFTER HDS LOADED 
DH1S ;WITHOUT PACK’ CMO 


SEG C045 





BAeYe.Pil  Oe-OeT=e Oa 


050435 
4 


ll? 





ERROR POIN 


;ERR 156 


M47 


;ERR 164 
;ERR 165 
;ERR 166 
;ERR 167 


sERR 170 


HOY 
4906), Ob-OCT-76 09:54 PAGE 46 


;NXF=0 
sAFTER SEEK WITH VV=0 





;MSG AD ERROR 


;MSG BO ERROR 


;MSG Al ERROR 


;MSG B1 ERROR 


;CANNOT READ BSE we 


ON SECTORS 0, 


e, 





;ON SEC 10, le... 


20 


» b, 





;CYL ADDR CHANGED FROM 0 


sNXF_NOT SET 
AFTER WRITE DATA WITH VV=0 





A a ES tS 


2332 4 
fa ane 
33 le 
Be BN 
3398 07476 
2399 
st oe 
240e 007504 
e403 007506 
Supe 007510 
e406 007Sle 
e407 007514 
2408 007516 
a ae 
e4l2 007524 
By oe 
Sule 007530 
as aes 
Si Bs 
e419 
e4e0 007540 
ol Be 
e423 007546 
e424 
5S ie 
Se 
ss4 
e428 007556 
e429 
Se es 
2432 007564 
e433 007566 
e434 
Be 
e437 007574 
2438 007576 
2439 
Sat 007600 
et4e 007604 
2443 
e444 
e445 007610 





MACY11 orth) ae rr 09:54 PAGE 47 


ERROR POIN 
EMle 
DH30 


SEG 0047 


;NO_RDY 
;AFTER READ HEADER CMO 


;NXF_DIO NOT SET FAULT 
AFTER SEEK WITH vV=0 


;OLT SET 


;CERR SET 


;UNLD NOT SET 
AFTER MDS FOUND 


;CANNOT FINO MOS 
AFTER SEARCHING ALL DRIVES 


;VV_NOT CLEARED 
AFTER UNIT SEL PLUG REMOVED 


:NO_RDY 
?AFTER WRITE HEADER CMD 


;CERR SET 


;UNEXP MEMORY PARITY ERROR 
TEST #,PRAP PC 


;MSG_BO ERROR 
AFTER AC SWITCHED OFF 


;CERR NOT SET 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) 06-OCT-76 09:54 PAGE 48 SEG 0048 
OZREIC.P11 06-OCT-76 09:44 ERROR POINTER TABLE 


eae pore le 060010 DH&7 ;AFTER TIMEOUT TO ENABLE WRL 
7614 60506 DT! 
2448 007616 061172 DF 10 
cca ;ERP 205 
007620 OS0650 EMSO ;WRL NOT SET 
2451 O076e2 060010 DHE7 
e4Se 007624 DTl 
007626 061172 DF 10 
;ERROR 206 
007630 435 ;WCE AT CYL 411, TRK 2, SEC 21 
ll 
2459 ;ERROR 207 
2460 OO7640 051211 EMS7 ;CERR NOT SET 
2461 OO7642 OSEESE DHSO AFTER WRITING WITH WRL ENABLED 
cies 007644 DT1 
007646 061172 DF10 
244 ;ERROR 210 
e465 007650 047073 EM21 ;CERR SET 
007652 0553 DHeS 
2467 007654 DTl 
007656 061172 DF10 
cis ;ERR 211 
24 007660 051267 EMSS ;CTO SET 
2471 feeee OS2022 mee ;WHILE WAITING FOR OR REC’D CONTR RDY MSG A & B BAD 
$5 Coveee beis0e BF 
74 sERR 2le 
2475 007670 Of1640 EM&7 ;NED SET 
2476 007672 OSe0ee EM70 
2477 007674 O60506 DT1 
ce 007676 061206 DF le 
;ERR 213 
007700 046173 EMS ;MDS SET 
2481 007702 EM70 
007704 DT1 
83 0077068 061206 DF 12 
ge ;ERR 214 
007710 052361 EM74 ;RTZ NOT SET 
2486 per7ie 056233 eee DURING RECD CMD 
16 ll F10 
6g ;ERR 215 
2490 007720 046767 EM17 ;MSG AO ERR 
2491 007722 056123 DH39 AFTER WRITE READER CMO. 
2492 007724 060716 OT13 
2493 061306 
2494 ;ERR 216 
“ 007730 pa7018 ous ;BO ERROR 
Ee Bao oad 1 DT13 
2498 007736 061306 DFel 
2499 ;ERR 217 
2500 007740 047031 sab. ;Al ERROR 
2501 007742 056123 H39 


SS - ~~ _ - ee 


EEE EEEEOEEOOOOEOEOEOOEOEOEeeeeeeeeeeeeeeeeeeeeeeee 


ODOR 


RRR 
200 NOU Wo fue 


007776 
1 
1 
ese4 
2525 Steatts 
55 el 
e528 010016 
2529 
2530 010020 
2531 0100ee 
eS3e 010024 
eS33 010026 
2534 
2535 010030 
2 HE 
10036 
ane 
St ee 
este 010044 
eS43 010046 





DIAGNOSTIC 


OE-0CT-76 0 








744 


PART 3 


Beet as PiADDE) ,  Dp-OCT-76 09:54 PAGE 49 


OT13 
OF 21 
;ERR 220 . 


DT13 


0 
;ERROR 223 


;ERROR 224 


;ERROR 226 
ce 


DF 10 
; ERROR a iA 


;B1 ERROR 


sNO_RDY 
-.}RFTER READ DATA CMD 


sCERR SET 


SES. 0049 








bob be 
r£co 


S988ee8 Sse 
PEECERS BR 


8h 


O-+b 4p +b + b+ b= b— 0 bP = a oe oe oo rd 
o 


OOKOOOOOOOOOO00NO V20000 


ee 


wed RKE DRIVE tole ta PART 3 
76 09:44 


000001 


001356 


94000 


010104 


033712 


MOV #S 
ss INITIALIZE A FEW VECTORS 
MOV ; 
Lt a 
HOV #340, J8EMT ee e; iLeveL 


MACYL1 27(1006) 06-OCT-76 09:54 PAGE SO 
ERROR POINTER TABLE SEG 005d 


.SBTTL PROGRAM SETUP 


PARSRT: MOV #1, PARAM -SET FLAG FOR 220 START 
ue PhasRy ; Art BRo BREN 
: CLRB PARAM ;CLEAR FOR 200 STAR 
GSRT: RESET CLEAR ALL INT ENABLE & INIT 
MOV #STACK, SP sSETUP Sie STACK rhoanTeR 
HOV Hae mt Per i Se OE PAT AEE 
RTI ‘betel ALL INTERRUPTS 
ISR PC, STKINT TUP KB VECTOR ADDR, PRIORITY 4 
5 ge URN BN “Re PRTERRGET 


— CPU PRIORITY LEVEL NOW AT O ### 

* ANY DEVICE WHICH SETS ITS  ### 
tae INTERRUPT ENABLE BIT WILL ### 
:##«# SERVICED. #e% 


;CLOCK INTERRUPTS Wile CHANGE CPU PRIORITY TO LEVEL 6& (IN °STS*) 
;RKOb CONTROLLER INT TS WILL CHANGE CPU PRIORITY TO LEVEL S IN °SETINT"’) 
;KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 


ALL *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 


sSYSMAC *SETUP’ 

INITIALIZE THE COMMON TA 
THE COMMON TAGS (S$CMTAG) AREA 
MOV #SCMTAG, RE bE EER LOCATION TO BE CLEARED 
LR (R6)+ LEAR MEMORY LOCATION 
CMP #SWR,R& ;;DONE? 
BNE “6 ape BACK IF NO 

TACK, SP ;;SETUP THE STACK POINTER 


pier were FOR SCOPE ROUTINE 
EMT VECTOR FOR ERROR ROUTINE 


#SSCOPE asiors’ 


Tea MecTOR FOR TRAP CALLS 


MOV ter vee " ;PORER FAILURE VECTOR 
MOV #340 aubLiEC +e 5 ;CEVE 

MOV SENDCT YEE END-OF-PROGRAM COUNTER 

CLR STIMES. js INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE ?:CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 

MOV t., SLPADR 3s INDTIALIZE THE LOOP ADDRESS FOR SCOPE 


THE ERROR LOOP ADDRESS 
FOUND OR IT IS 


MOV SLPERR ET 
;;SIZE FOR A A HARDWARE SWITCH pecheTeR. IF NOT 
EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV DKERRVEC, -(SP) ;39AVE ERROR vECT OR 

MOV #64S OHERRVEC T UP ERR TOR 

MOY #OSWR , Sid :: SETUP FOR A HABOWARE SWICH REGISTER 





a 


MO4 
SEER LEELA? BEARER AR Om M8 


010270 


B1B80% 


SBP REGS | 


ROR 


WONT W cw 
oo 
—r- a 


2620 O1 
553 Bib40e 
e623 O10406 
ebed 010414 
o104e2 
2626 
2627 O10424 
2628 010426 
550 lose 
10436 
2631 O10440 
Boze 10446 
2 
2634 o10452 
2635 10456 
2636 O10462 
2 
2638 
2629 
2640 
cul 
43 Blows 
44 010474 
es 010500 
ee? BiDET 
48 910514 
2649 010520 
2650 010524 
2651 010530 
2652 
2653 
54 


012737 
Ole 


177570 
177777 


010316 


00176 
AAR 174 
000004 


005037 001216 
000200 


001232 


24 
Bbbaid 
172100 
000001 


031456 
000340 


000002 
172140 
000006 
000006 





001142 
170634 


oooco4 


000013 


64S: MOV 
6ss: 


MEMPAR: py 


ros py DISPLAY 
, aSHR 


65$ 
#65$, (SP) 


tise, DISPLAY 


SP)+, JSERRVEC 
SPASS 
8APTSIZE, SENVM 
675 

8SSWREG, SWR 


: tea? ERRY C+2 


JR 

i (RL) 
#MEMERR C 
#PR7, a a 
2$ 

(SP)+, (SP)+ 


#2,R1 
R1, #MEMBAS+40 


#ERRVEC+E, ERRVEC’ 


ERRVEC+2 


PC, CLRFLG 
SDEVCT 
SUNIT 


AND 8 A HARDWARE. D DISPLAY REGISTER 
pie iain * he du ORE ate 


CCURRED 
ip taciai Bia 


IS NOT = -1 
HA UP FOR TRAP RETURN 
;;POINT TO SOFTWARE SWR 
ae ERROR VECTOR 


Hi Te, eth SER SIZE U UNDER APT 


::NO,USE APT SWITCH REGISTER 
; TIMEOUT VECTOR 


;ADDR OF MEM CSR 

: F CAN REFE a 

: E BIT IF YES 

;LD MEMORY CHK VECTOR IF DONT TIMEOUT 


iADJ STACK 
Y NEXT CSR 
‘ALL TRIED? 


;RESTORE TRAP CATCHER 


;CLEAR DDUMP THRU SIZFLG 


SFIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 


START1: TST 


1$: 
es: INC 


CHECK IF ALL PARAMETERS DEFAULTED. 
;WITH OPERATOR. 


;BR IF 
san. AL PE PROG 1D 
=LOADED BY XXD 


SET RKO& DUMP MODE F 
sREPLACE DRO PACK F/SCRATCH & DO<CR> 


;SET ACT/APT/PTP DUMP MODE FLAG 


IF NOT, BEGIN INPUT yo 


THE REPLY TO "DRIVES TO BE TESTED’ SHOULD 


SEG 00S: 





UNIBUS RKE DRIVE SIRGWSTIC B saps 3 Yll Fst 06-OCT-76 09:54 PAGE Se SEG 00Se 
DZREIC.P11 06-OCT-76 09:4 TIALIZE THE COMMON Tres 


2656 baie NOS. SEPERATED BY COMMAS & TERMINATED BY <CR> 
2657 ; EX: DRIVES TO BE TESTED: 1,2,4<CR> 
ee 005737 001356 STe: TST PARAM 

1 001002 BNE 1$ BR IF 220 S 


ies, Bart rite 1S: ee nea ae 1,8 SIZE THE Buss 


ONDKOOMNO0O0O00 
saeenhseos 


1 
1 
i 
So OEE nn re fe tee 
Bat4 1 ABt33s re ee JSR PC ces Biss fon 
cee ise tee basis ee eer SS TET 
eee { | Bares aR Gs 
2620 
2672 :AUTO MODE 
73 :CHECK IF Y XXDP OR R. SET FLAG NPUT O18 ALOGUE. 
3 TEE TF ORDO ETERS CHEST ONLY THOSE DRIVES THAT ARE READY 
2675 :ON THE BUSS 
ze , 
1 3727 000041 000013 ST3: MPB 41, #13 ;13=LOADED BY XXDP 
see Bibepe O61 : GNeeO Od 
e680 910616 O0Se3? $520 INC DOPCH :SET RKO& CHAIN MODE FLAG 
eeee ot 1848 7410 YPE asa> ;DRO NOT TSTD 
1 BR Sty 
obey 010626 005237 ooss22 1S: INC ACTLI ;SET ACT AUTO FLAG. 
1 1 77440 001264 ST4: MOV #177440,$BASE  ;DEFAULT VALUE 
sees OTE aS pisos Anas ip 001334 MOV #210, RKVEC ‘DEFAULT VALUE 
2688 O10646 004737 O25044 JSR PC ETINT 
eb8 010652 005237 oossse INC SI2ZFLG :D0 “SIZE THE BUSS” TEST 
2691 010656 005037 005370 STS: CLR UNLD ; INITIALIZE FLAGS 
2692 010662 005037 005372 CLR BADHDR ;USED IN ’STOP ROUTINE 
2693 O10666 005037 005374 . CLR HPEND ‘FOR VALID PROGRAM HALTS 
2694 010672 012737 005530 001362 MOV #DRIVO,DRVPTR  ;SETUP 
2695 010700 005037 001220 CLR SDEVCT *NO. OF DRVS DONE 
Seay DIOTIO Brora? OTOPEE 000004 Soe RTSCERRVEC }CURRENT oR YUP TIMEOUT ERROR VECTOR 
2698 Biosie pies 3s 170424 TST aLK Ke ;SEE IF ete THERE 
2699 010722 005237 oossso INC LCLK spRESEN NT, SET FLAG. 
Ge Ue Hee BE com = Betas, ‘teeta Ft 
2702 010740 005777 170374 TST aPK Kee pee IF P-CLOCK THERE 
2703 010744 005237 Oossse2 INC PCLK !PRESENT, SET FLAG 
2704 010750 013700 001352 MOV PCVEC, RO VECTOR ADDR 
e706 010754 o00412 BR 3$ 
2707 010756 O22626 1S: CMP (SP)+, (SP)+ sL-CLOCK NOT THERE, CLEAR STACK 
‘2708 010760 012737 011024 ocoD004 MOV #4$, ERRVEC 
2709 010766 777 170346 TST ap PKS ;SEE IF P-CLOCK THERE | 
2710 010772 005237 oossse2 INC PCLK i PRESENT SET FLAG 
2711 010776 013700 001352 MOV PEVEC, RO :VECTOR ADDR 


ee 





SES S053 


BOS 


; a TIRING Sis CAN BE DONE 
sSERVICE ROUTINE FOR CLOCKS 
3;P-CLOCK NOT THERE, CLEAR STACK 
THERE, CLEAR STACK 
C T BE DONE. 
STS BYPASSED 


3360 TO NEXT TEST 


2 z bs 

—— =» os 

<= — = 
=o rs x 
- ore a, atu 
Sa ag mn b= 4 o 


INC 
MOV 
MOV 
BR 
CMP 
BR 
CMP 
CLR 
TYPE 


Um 7 in.of. ao’ ars rid 
oO beater Ow On Oe @ iY] 





UNIBUS 


Basie CONTROLER EGR ast 


-SBTTL BASIC CONTROLLER TESTS, SIZING 8 SETUP 


 RERESSSSSRSSEREPRESRESESSEESESELREEERERSESEEEE LSS ESE ESEEEESE RSS 
Tl REFERENCE ALL CONTROLLER REGISTERS 


o 
o 


sietdesosarsat 


—ee 
ur: ee oe Oe Oe ene 
= nm 


SR 


THIS mie VERIFIES THAT THE CONTROLLER REGISTERS 
cESSED. THE e INSILTY Re rete - 


Gee ear A tei eatin 
IN THIS TEST WILL RESULT IN BORTING ALL OTHER 
ESTS AND JUMPING TO ‘END OF PASS’ 


te -+-+-)-+ einai latent 
SC 


a9 


‘ 


ant TRE £28 


RBRVS ORD 


+s 


ReneueWuMeKess sea tod 


O00 O80 ONOOOOOOVOOOOOVO0NND OHf00 COO 

e+) 26-0 o—-F- 0+ b+ 0-20 + 6-20-90 - 0-26 b-< & < &- + B+ 2 & 2 om 020 -+— =o = o-— 20+ 

ee e+e 4 O-+ 6 + 0-+ 0 = 0-<® + b+ 2b «B+ & +o -+ & < o-= p-0 hop 0 2b 2p--p-- [ee ee 
R SA FRRMESRNOERRR 


RP 


V STIMES 

V pla tieSrApe TK. 
MOV -(SP) ;RESET PSW TO PRIORITY 0 
HOV pi ~(SP) :& MAKE IT LSI COMPATABLE 
MOV 81$, ERRVEC TUP TIMOUT ERROR VECTOR 
MOV RS ; SETUP TAEEX REG. 
TST RKCSIERS) ‘REFERENCE ALL THE 
TST RKCS2(RS) :CONTROLLER REGISTERS 
TST RKWC (RS) 
TST RKBA(RS) 
13t KE (Re) N THIS SECTION 
te BAER RE) Hs icare, Nat i CONTROLLER 
TST RKASOF (RS) CANNOT it READ. 
TST RKDC (RS) feet iN RE OULD NO T PROCEED 
TST RKDB(RS) ‘UNTIL THIS IS REMEDIED. 
TST RKMR1 (RS) 
TST RKMR2(RS) 
TST RKMR3(RS) 
TST RKECPS(RS) 
TST CPT (RS) 
MOV SBADTMO,ERRVEC ;SETUP TIMEOUT HANDLER 

::G0 TO NEXT TEST 

CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 
ERROR *ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 


eee ee ate Get ae ee 


. ses ee ee . 
ee oe om ae ee 


SIZE THE BUSS 


THIS TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
EITHER aia IN THE AUTO MODE OR A 200 START IN THE 


EVERY DRIVE FROM O THRU 7 IS ADDRESSED. 
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE 
DRIVE WILL BE TESTED. IF SET, THE PROGRAM WILL BYPASS 


UNIBUS BG DRINE DIAGNOSTIC PART 3 
O2R6IC.P11 Oe-OCT-7e 09:44 
11212 900004 
eres ii519 Bibe3? 000001 01174 
lle22 O12706 001100 
¢ 01122 008237 001550 
re 11 ooc200 001231 
794 Ollev2 000137 011356 
See O11e4e 10N4O1 037523 
ra fis Gee 
2799 011260 012701 005530 
200 Dileby Ol37de Odleke 
23 Hae BR om 
11274 00141 
gay Gile7e O0s297 cossee 
Pe0S O11302 O0Se11 
2806 011304 104401 oD1205 
2607 011310 O1004% 
2603 11212 104403 
2810 011314 O01 
5611 O11215 O06 
ete ouiaie 1 
Seiy Bitse8  SoeenS 
2815 Oll3e2 O22700 o00010 
esig Oll3e6 O01%0e 
ee18 01123 06002 
61S Oliza2 O0C7S6 
G21 011234 005737 ooss26 
2822 011340 001402 
eee3 Olle 000137 01227 
2825 011346 104034 
2e2— 011350 
eee? 011362 000137 o1065e 
eee9 011256 012765 0004 00010 
2831 
3B32 
Ake 
2634 
2235 011364 013737 001426 cOsH4Y 
2836 011272 004737 O2s062 


mac 
- 


é 
* 
+ 
> 


ee ee ae 


iss: 


16$: 


17$: 


18$: 


128: 


DOS 


Yl 2714008) — 09:54 PAGE SS 


TESTING yh ONLY Le THE on WAS A RESULT OF 


BOTH NED & DRA RESET IN- 


DICATING THE OTHER pert at RECESSED. 


42289 32 


#1, STIMES 
sStACK, SP 


2 58 ye 5885 o 
= 2 x 


STs 
#SCLR,RKCS2(RS) 


T10 TEMP 
PC,FRD 


2s SFLRELLLLEFLAELLALSELLASLALLALELAALSLALESLELSESLAFSLALELEAALLASASS 


tét2 


“DO 1 ITERATION 
‘hecTORE STK PTR 


;00 NOT TEST CERR IN FROY 
‘Bee IF use APT SELECTED DRIVES 


4 GET NEXT BIT OFF DEVICE MAP 
Y AGAIN 


;SEE_IF MORE DRIVES PRESENT 
;BR_IF_NO 
;ELSE EXIT TEST 


:NO DRIVES FOUND IN SDEVM 
TUP CORRECTLY & PRESS ‘CONTINUE’ 
TO TRY AGAIN 


;SUBSYSTEM CLEAR 





UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
OZREIC.F 11 O6-OCT-76 09:44 


2837 Cll37& 104120 


2838 
2833 
ei bil wt 
037523 
cea tt — 
ll le701 005530 
BS HIS on 
Ea 11ase 1 001100 
2850 O114 l 000019 
fel Bliss Gisre poles cow 
ll 041 
SSE it ae 
ce HS) Be Ba pe 
cst Dlisee srs? 
esse 811308 104117 
2853 011502 0327. 100000 oOS4D& 
2860 O11510 OOlLDME 
feel OUISle Olea? opsuos oosw 
pees eS ere? Jo77a 
2864 011532 OO1O1s 
2865 011534 005700 
caee ll 001 
Ets ll o0ssS20 
F4sis\-} 11544 OO1014 
2863 O11S46 005237 oD0ss2e 
2870 tt eBe Oeht 
2871 11554 1 1 o0120s 
2872 O1LISEO O1OD4E 
e274 O11S6e 104403 
2875 OLISé4 001 
2876 O11SES 000 
2877 O11566 o00403 
sere 011570 004737 O25570 
sone 011574 104001 
e682 011576 005721 
2883 011600 o0s200 
2884 011602 922700 o00010 
2885 O11606 001306 
288 011610 905737 oDss26 
cee? Olleis Duioes 
2beS 011620 aiatcn 
seat Olléee 000137 O1DESE 
e63e Ollt2eé 032737 001000 osOs410 


MACYLi 27( 1006) 
T2 


18: 


4$: 


Ss: 


es: 


06-OCT-76 09:54 PAGE SE 


SIZE THE BUSS 


ERROR 


120 ;ROY NOT SET BY END OF SCLR 


af 


;00 NOT SIZE gere NEXT TEST 


RSG10 HALL TEST DRIVE 

IVs 8 OF RESENT 
sORIVO,R1 spay FLAG 
aSTACK, SP ;RESTORE STK PTR 


rio,itnrl (RS) eee 


igs iF NOT re ost BY JES 6 SLR 
RKCS2(RS) 
eee SE Ect BRIvE CMD 
sFIND RDY 
PC FRO :NO ROY AFTER SELECT DRIVE CMD. 
SCERR, HCS1 
HMRe, TEMP! 
8tC<DRVMSK> , TEMP 
RO, TEMP 3$/B SAME 
3$ 
: 
DOPCH ;SEE IF XXDP CHAIN MODE 
R sINC DRIVE COUNT. 
cite :SET DRIVE PRESENT FLAG 
$CRLF 
RO, -(SP) 5s SAVE RO FOR TYPEOUT 
+ FyPE-OcT TAL ASCII 
l ss TYPE 1 1 DIGIT(S) 
0. ::SUPPRESS LEADING ZEROS 
PC, BYP TYPE BYPASS DR 8 
1 :WRITTEN DR # DOES NOT MATCH RKMR2 OR # 
(R1)+ ;SHIFT PTR TO NEXT DR. FLAG 
- an ;INC OR #& 
1g’ ;MORL WcFT. 
DRIVS 
js ;NO DRIVES SEEN 
:SETUP & PRESS *CONTINUE’ 
STs 
sMOS,HCS2 


2 
B 


> <0 gps Se eed ee 0b p< p -- b= -0~— b - <b -+ p< p< b= 92 9 ~c 
o-+ b= p- 2p o-+0-+ b-+9 +6 tl oe od b- b+ +e 2 a oe 0-6 + 0-0 +b +p = 0 o- 


x 


© 
oO 
wv 
i 


HES oad REMGRE Re 


“NN 


0000 20000 28000 200 200 DOODD0000 
be 
ro 


Fae THEN WS 


Se See Ne er aaa 


® 


Be SOR SR SURES SUNN Nisa te see SUR REL Rees mI 


ru 
22 
ONdOOKOOOOH 
ey 2 
Sy 
RS 


_ 
Tr 
3 
= 


o~ oO 
ee 
‘t 
NS 


pane 
Run 


ooo400 905410 
000061 cos420 
10000 905410 


025570 
025570 


010000 005410 


025570 


012276 


000001 001174 
001100 
005530 


001100 


MACYL1 27(1006) O6-OCT-76 09:54 PAGE $7 
SIZE THE BUSS 
BNE $ 
BIT SUFE,HCS2 
8 ? 
ET en,wos 
BIT 8NED, HCS2 
Q 3 
S 
&$: ISR PC, BYP ; TYPE BYP OR 8 
ERROR é :MDS DETECTED 
73: JSR PC, BYP 
ERROR 3 ;UFE DETECTED 
Se $s 
Q¢: BIT NED, HCS2 
ae ‘Asc! ;DRV8 
RO, ot35 3 3 SAVE RO For TYPEOUT 
TYPOS 60 TY YPE=-OCTAL ASCII 
BYTE l 3; TYPE 1 DIGIT(S) 
"BY 0 “SUPPRESS LEADING ZEROS 
ERROR 10  ARA & NED BOTH SET 
BR c$ 
3g JSR PC, BYP 3 
ERROR 4 ;NO DRA & NO NED = OTHER PORT SELECTED 


10S: on NUDRY 


; ELE EREREER EERE EERE EAA EERE SEE E ERLE R EEA EERE EEE EE EERE EE EEE 
 ATEST 3 VERIFY OPERATOR DRIVE SELECTIONS 


THIS TEST IS ENTERED ONLY IF DRIVE SELECTION 3. ’ 


TROLEER ERROR <Geha) Ye EXAMINED. Te°NOT eT, T 


10 SE E E THAT THE ORI DRIVE WA NPUTTED. RESENT ESTING. wi ue BT CE TLL 
ge AN Er gen as T DRI WILL BE BYPASSED 


ONLY He, RESULT OF OF UFE BE eal wt BOTH 
NED & TORA WRONG PORT). IF a: T OF 
NED ONLY, IT IS CHECKED AGAINT the INPUTTED INFOR” TO 


VERIFY IT WAS NOT SPECIFIED. 
Lt 0 Ieee ep pam sents 


#1,$TI ; 1 ITERATION 
MOV aSTACK, tip arts STK PTR 


R ;DRIVE ADDR 
MOV #ORIVO,R1 DRIVE FLAG 


RE oe ee ee eee ee 


1$: 
MOV eSTACK, SP ;RESTORE STK PTR 


i 
ee ee ~ a 


Se? G12002 o12765 000040 000010 MOV @SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 











RK y AGNOST PART 
SURE. Pat PIE SST 2 
ie ee Se 
1 1041 
St O01 10 000 
er Se hiss Biel gue 
a viet te OeS0te 
Se eee 
Hee bee ice oe 
1 444 
2964 pieife po29i8 
er HI 
ser Hiss Be 
12114 000010 
st Bist Blas 
2372 
ale, psig 004737 025570 
lel 104001 
See Bie 
e977 Olel36 o0SS26 
e978 Olel4¥e 005011 
pate 012144 000761 
e961 012146 004737 025570 
Be Re ee 
e964 
e98S 012156 032737 001000 o0S5410 
e386 Olel64 001027 
2987 pisige paras 000400 005410 
Er isi ze 03e737 000001 005420 
e390 Oleed4 001005 
2991 Bissie far ase 010000 005410 
Seay lee 
934 i Bee8 737 010000 005410 
es9s Qleeeé 001726 
se Ree Bt 
2398 
£999 012234 004737 025570 
ot ties ie 
3002 
3003 012244 004737 025570 
3004 OleesoO 104 
3005 OleeSe O0C07be 
3006 


MACYL1 27¢ 
T3 


11S: 


4§: 


3$: 


12S: 


Ss: 


es: 


10S: 


6S: 


HO 


) 06-OCT-76 09:54 PAGE S9 SEG 0059 
vehoee OPERATOR DRIVE SELECTIONS : 
CHB! Pattee 
ERROR 120 ha Roy AFTER SCLR 
MOV RO.RKCS2(RS) — ;:DRV ADDR 
MOV gSELDRY RKCS1(RS) ;SELECT DRIVE CMD 
V T10, TEMP 
JSR PC, ROY ;FIND RDY 
RROR 1 :NO RDY AFTER SELECT DRIVE CMD. 
IT ERR,HCS1 
BNE 
MOV HMRe, TEMP 1 
BIC 8tCDRVMSK> , TEMP1 
CMP RO, TEMP1 °S/B SAME 
BNE 
qs (RL) 
Q c$ 
TST (R1)+ ;SHIFT PTR TO NEXT DR FLAG 
INC RD INC DR® 
#8. ,RO 
BNE 1$ ;MORE LEFT 
BR TST4 +:GO TO NEXT TEST 
JSR PC, BYP ; TRY BYPASS DRIVE® 
ERROR hes WRITTEN DR# DOES NOT MATCH RKMR2 OR# 
BEQ 4 sBRANCH IF NOT SPEC BY INPUT 
DEC ORIVS :DECREMENT TOTAL DRIVS 
CLR (R1) :CLEAR DRIVE FLAG 
BR 4g 
JSR PC, BYP 
ERROR 5 ;DR PRESENT BUT NOT SPECIFIED BY OPERATOR 
BIT #MDS,HCS2 
BNE 
BIT #UFE,HCS2 
BNE ? 
BIT #DRA, HDS 
BNE 
BIT #NED, HCS2 
BEG 95 
BR 10s 
BIT #NED, HCS2 
BEQ 11§ 
TST (Rl) 
BEQ 4§ 
JSR PC, BYP ;TYPE BYPASS DRIVES 
ERROR 6 
BR 12 
ISR PC, BYP ; TYPE BYPASS DRIVEs 
ERROR e :MDS DETECTED 





SS 


BoReve. Pt ORs SLEmOSTIS, PRAT 2 HRCI 27400 oO a SEG 0060 


3008 AI SSED es oom: - san ‘eee sUFE DETECTED 
° ‘fi Aoeeee ER 3s F 
Il 012264 004737 o25570 gg: ISR PC, BYP 
3012 012270 104004 ERROR 4 ;DRA 8 NED RESET - OTHER PORT SELECTED 
eae Ol227e 000752 BR ct} 
wi5 012274 001237 BNE 1$ ;BRANCH IF MORE LEFT. 
3516 
ne Bile PART Pir THE PROGRAM WILL BE REPEATED FOR EACH 
3022 :*$UNIT’ CONTAINS THE RODRESS oF THE DRIVE CURRENTLY 
3023 'UNDER TEST 
$d 012276 905037 001550 NUDRV: CLR BYPCERR ENTER HERE FROM LAST TEST 
3026 :TEST CERR IN 'FRDY’ 
3028 3 = SHREK ESSRER ELE RAL LA AA REALL AR ARESRAARAAARE SAHARA RAE RSLS LAE RAALES 
30293 j TEST 4 FIND NEXT DRIVE TO BE TESTED 
3 1 :% THIS TEST FINOS THE NEXT DRIVE PRESENT & PUTS THAT 
3032 t# ADDRESS IN ’SUNIT’ 
3033 :# THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS 
2034 i THE DRIVE WHOSE ADDRESS IS IN *SUNIT’ 
3036 : o EELS HESELE LEER ALLAAH SHA AA LAA KAA AAA AA ARERR RLAS RELATE SLELERTE 
3037 012902 poco04 $éT4: SCOPE 
3038 Ole 012737 900001 001174 MOV #1 STINES ; 1 ITERATION 
So ee te Be oe =O Bie 
304 pis3i8 815535 001102 MOV #STN-1 ait 
3043 012332 005737 o0sSs26 TST DRIVS sANY DRIVES PRESENT? 
ao 012236 4§ "YES BRANCH 
12340 104401 o40432 E MSG27 ‘ALL DRIVES TESTED 
s04e 012344 d2e4402 IMP $eoP :NO, GO TO END 
1 ug: MOV RVPTR,R x FLAG 
spu6 15329 heats BB . TST grey ; Fist Br vast CHECKED 
Spey ees poe 395 001222 i AY IT ves, ADDR TO NEXT DRIVE 
ses flees Hers NT i Ae hee 
3053 012370 001774 BEQ 1$ : NO FIND NEXT BRIVE PRESENT 
4 Diese 005737 ooss20 TST DDPCH :DDP CHAIN MODE? 
5 Ol 001403 BEQ 3$ :NO Bran 
012400 005737 odl222 TST SUNIT iYES Is I T DR IVE 0? 
3057 O1le404 001766 BEQ 1$ F YES. D TEST OR O 
012406 010137 001362 3S: MOV R1, DRVPTR STORE BOINTER TO THE NEXT DR. FLAG 
3059 012412 104401 037730 TYPE mSG1 :"ORI 
012416 013700 OO1e222 MOV guntT RO 
3061 Ole422 010046 MOV RO, -(SP) SAVE RO FOR TYPEOUT 


3062 ;;DRIVE & 





a 
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D2R6IC.P11 O6-OCT-76 09:44 T4 FIND NEXT DRIVE TO BE TESTED | 
3063 012424 104403 TYPOS :60 TYPE--OCTAL ASCII 
3064 Ole4ee 001 .BYTE 1 : TYPE 1 DIGIT(S) 
3065 012427 000 "BYTE 0 ::SUPPRESS LEADING ZEROS 
3e8 012430 104401 o01205 TYPE  ,S$CRLF 
3069 012434 PFSRT ENTER HERE FOR POWER FAIL RESTART 
3070 ; » Sabb AE AES AEE ASE EE 
3071 if 5 PRINT DRIVE SERIAL NUMBER 
3075 1% THIS TEST READS 8 PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 
3074 > IN BCD & IS PERFORMED ON THE IST PASS ONLY 
078 ee SHAAASAA LALA LASS LA LAER SSE A ALLA ALLAH SA AREA FALLS FALFLARELF EA EF EE 
77 012434 oc00004 TS: SCOPE 
3078 012436 012737 000001 001174 MOV #1 SiMe ; 1 ITERATION 
3073 012444 012706 001100 MOV #stac ‘APC TORE STK PTR 
3081 012450 005737 o01216 TST $PASS 
3082 012454 001 BNE TST ; O_NEXT JE IF NOT FIRST PASS 
3083 012456 004737 026772 ISR PC, SUBCLR iby SuBsy 
3084 Ole46e 104024 ERROR 24 CERR AFTER Pats 
S08 12464 10440 TYPE MSG16 ees SERIAL NO. 
tid setae biz7ee poo026 MOV ba RERRI RS) :SELECT BYTE 3 
3088 012476 004737 026420 JSR PC’ GSTAT *GET STATUS 
3089 Oieede 013701 005434 MOV R1 5GET RIAL # 
3090 012506 012704 035414 MOV #SOCTVL, RY :GET CHAR BUFF 
3091 Olesie o1d44e MOV RY, -(SP3 :STORE ON STACK FOR SSUPRS 
3092 012514 012703 oo0003 MOV #3,R3 :SETUP CHAR COOUNT 
3093 012520 006101 ROL Ri ‘INITIALIZE BIT POSITIONS 
3094 012522 906101 ROL Ri 
3095 012524 006101 1S: ROL R1 ;GET NEXT 4 BITS 
309% 912526 006101 ROL R1 
3097 012530 006101 ROL R1 
3098 012532 006101 ROL R1 
3099 012534 010100 MOV R1,RO ;GET WORKING COPY 
3100 012536 942700 177760 BIC #177760, RO ?CLEAR ALL BUT LOW 4 BITS 
3101 Ole542 052700 Ooo0060 BIS #60,R0 :CONVERT TO aScTT DIGIT 
3106 b12546 110024 NOVE RO, (R4)+ :PUT ASCII DIGIT INTO CHAR BUFF 
3104 012552 001364 BNE 1$ :BR IF ALL 3 CHARS NOT DONE 
3105 012554 105014 CLRB ss (R4) ‘ELSE INSERT NULL TERMINATOR 
3103 012556 035662 JSR PC, SSUPRS : TYPE 
3108 O12562 104401 O01205 TYPE ScRLF 
3108 012566 104401 001205 TYPE ‘SCRLF 
3111 4 Se eer a eee 
ile jATE SET VV WITH PACK COMMAND 
ail i IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
31 Lé © LEKLKEAERSS ESKER KA LARA RE RERAE AE RARE RARER ALAARE RA RARL RAHA SARAAAEFAE 
3117 012572 oO0004 +éTe: SCOPE 
311@ 012574 012737 000001 001174 MOV #1,$TIMES :;D0 1 ITERATION 


ee ee 
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Té SET VV WITH PACK COMMAND = 
MOV #STACK, SP sRESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
BIT 8D. VV, HMR2 
BNE TST7 ::G0 TO NEXT TEST IF Vv SET 
SCOP! 
MOV #STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
ZBEoR 24 . :CERR AFTER SCLR 
MOV aPACK RKCS1(RS) ;CMD TO SET VV 
MOV 410, TEMPL 
ISR GF ;FIND RDY 
ERROR :RDY NOT SET AFTER PACK CMD 
IT , HMR2 
Bie 2, ;:GO TO NEXT TEST IF VV NOW SET 
ERROR 27 :PACK DID NOT SET 
© ELSES SRERERES ERLE LER ARASH ARAL LA LARA A LAE RARER ALEAERKA LEAR EEEEES 
:ATEST ? UNLOAD DRIVE TO BE TESTED 
+ THIS TEST UNL THE DRI TESTED NEXT 
i WAITS FOR AT Denes ERIFIES iT T g FROM THE CORRECT DRIVE. 
ee SHKAKSKLSSALERE RELA A ARLHS SAS RA SARK RA RAL LAA AREA A ALA LAAAAERAA LATS 
+617: SCOPE 
MOV #1, $TIMES ;;D0 1 ITERATION 
MOV #STACK, SP 
INC UNLD ;USED TO CHECK FOR VALID HALT 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV #UNLOAD, RKCS1(RS) ;UNLOAD CMD 
MOV T10, TEMP! 
JSR PC, FRDY ;FIND CONTR RDY 
ERROR 17 :NO RDY AFTER UNLD CMD 
ISR PC, TSTATN 
ERROR 20 :NO ATTN AFTER UNLOAD CMD 


-SBTTL OPERATOR INTERVENTION TESTS 


: 1 a pecgeaat OO 8 late cemmaria eiaae cam meeis 
jATE INTERLOCKS TESTS 


i THIS ie VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS 
ARE OPERATING PaOere nS IN MESSAGE AO & THAT THE REMOVAL 

OF THE CARTRIDGE CLEARS VOLUME VAL 

IT FURTHUR VERIFIES ALL REMAINING STATUS BITS OF 


- 
we OK 
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WWWW WW WWWWWW WWW) 
hh eh te 


Foew SE MSFLRR Sus 


frorofuroruruforore 
WO VORU£Wwrur-O 


OATS th 


foforororururorure 
Sb ANS 
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) 
OCKS TESTS 


MESSAGE A 8 B 
THIS TEST ALSO OMEcKS. That’ THE SPINDLE CANNOT BE STARTED 


TH ALGO VERIFIES fit Lose OF VOLUME VALID RESETS SACK HICH 


ASSERTS NON EXISTENT DRIVE IN RK 
Uiiiitiiiiiiiiitiititiiiiiiiiiiicreriirerrererre res gs peso oo 
: SCOPE 


OV 


sky SIMES 


PC, SUBCLR 
e4 


Pc, GETSP 
#1; RKMRI(RS) 
C’ GSTAT 


4 


#0. DOOR, HMR2 
1$ 


iABSet STECK PTR 
;CERR AFTER SCLR 
;DONT DO CKCERR ROUTINE 


; INTERLOCKS TEST 

sCONT-E TO ee e. SPACE TO CONTINUE 
TCT SS 

RET WHERE F CONT” ~< 


;VERIFY DOOR CANNOT BE OPENED 
DEPRESS SPACE WHEN DONE 
:GET SPACE 


;DEPRESS RUN/STOP SW TO ‘STOP’ 
;OPEN DOOR & LEAVE IT OPEN 

; DEPRESS SPACE BAR WHEN DONE 
;INPUT SPACE 

;SELECT WORD 1 


;DOOR STATUS BIT NOT CLEARED 


2 eatin pt ;EXPECTED AO 
ry aS 


P M 
sents 
a 

64 


PC, SUBCLR 
e4 


PC, GSTAT 


Wises" SeecIPtED HE Re’ 2 


Isc ae preee AFTER DRIVE UNLOADED & DOOR OPENED 


:M 
:MSG Al ERROR 
;MSG Bl ERROR 


;CERR AFTER SCLR 


;PRESS *RUN-STOP’ TO ‘RUN’ 
;VERIFY DOES NOT START 


;GET SPACE FROM TTY 








BoAee.Pit  UE-BeRME Osrw 


3 


EERE ROOMS S aR ToR Ce SRIRORERS | 


Spee HOGS BR REE Se 


OoO000 OO 


8 


e2222 eeeeee eeee 
Bee Sever 
28 Rnkten 


22 
FO 


010000 


000140 


p05500 
bod00! 


005434 


OOS47E 2S: 


BoEes 


000026 
005434 


005434 


000000 


005434 
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SS: 


BIT 


#0. SPIN, HMR2 
2s 
6S 


;SPIN SET IN MSGAO 


Ei ia ;EXPECTED MSG AO 
a 1D. BRHM!D.CART> ,E.Al 
Soe Br 


BrOre 


#1,RKMR1(RS) 
PC; GSTAT 

#D: CART, HMR2 
3$ 

72 


PC, SUBCLR 
24 


,MSG35 
*MSG34 
MSG37 
PC, GETSP 


PC, GSTAT 
#0: SPIN, HMR2 


ar RKCS1(RS) 


KMR1 URS) 
PC, GSTAT 
#0! VV, HMR2 


iP sts SPeciP ted he 


B) Freon AFTER ATTEWPT TO START SPIN & DOOR OPEN 
tt 
;MSG Bl ERROR 


;CERR AFTER SCLR 


REMY S_*RUN-STOP’ SW TO STOP 
PACK & CLOSE DOOR 


;GET SPACE FROM TTY 
;SELECT WORD 1 


;CARTRIDGE STATUS BIT NOT RESET 


;CERR AFTER SCLR 


;PRESS "RUN-STOP’ TO *RUN’ 
;VERIFY DOES NOT START 


;GET SPACE FROM TTY 


;SPIN SET IN MSG AO 


;PRESS *RUN-STOP’ TO *STOP’ 
INSERT ee tbr & CLOSE DOOR 
;DEPRESS SPACE WHEN READY GOES ON 
:GET-.SPACE FROM TTY 

:FOR VALID HALT 


;SELECT WORD O 





S 
de 


cists iiee era en eae 


esata 
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3 
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oo 
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000004 
012737 
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001720 


000001 
001100 


026772 
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000000 
000010 


005434 


000000 
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PIG tt tndoRcocKs Tests ae sae 
ERROR 33 ;¥V NOT CLEARED AFTER PACK RE-INSERTED 
7$: Hoy DSC!D. SPIN!D. DRDY!D.DRA> ,E.A0 sEXPECTED AQ 
MOV #<D. SPOK!D.CART!D. SSP!D. BRHM!D.DOOR> ,E.Al 
MOV #$1,£.81 
JSR PC, CHKMSG sCHECK MSGS AO, , Bl 
Errok 7 ; hs 60 Frac iF ied dene PACK REINSERTED & HEADS LOADED 
ERROR 26 ine al ERROR 
ERROR MSG RROR 
MOV #CCLR,RKCS1(RS) 
MOV SUNIT;RKCS2(R5) ;DRIVE # 
MOV #PACK;RKCS1(RS) :PACK CMD 
MOV T10, TEMP 
JSR C.FROY ;FIND CONTR RDY 
ERROR 116 :CONTR NOT RDY 
BIT #D. VV, HMR2 
BNE 64$ 
a ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
~~ jee UNLD FOR VALID HALT 
ISR PC, SUBCLR 
ERROR :CERR AFTER SCLR 
MOV #INL OAD, RKCS1 (RS) ;UNLOAD CMD 
MOV TIO. TEMPL 
ISR PC, FRDY sFIND CONTR _RDY 
ERROR !NO RDY AFTER UNLD CMD 
JSR PC, TSTATN 
- ERROR 20 a ATTN AFTER UNLOAD CMD 
s ae at nih 
jATE UNIT SELECT PLUG TEST 
+ THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED 
1 UT, THE QUAL LOGIC RESETS ATTN & VOLUME VALID, THAT 
* HE DRIVE DE-SELECTS & NON EXISTENT DRIVE AReP ATS" 
1 URTHUR, THE OPERATOR I ASKED TO INSERT ANY NUMBER OF 
1% UNIT SELECT PLUGS. THE PROGRAM WILL RESPOND BY TYPING 
1 UG CODE NUMBER AS SOON AS IT IS INSERTED. 
i# THIS PORTION OF THE TEST IS TERMINATED AT ANY TIME BY A CONT-E 
i poraearannenenennenyraees 
#1, STIMES ; ITERATION 
MOV #STACK, SP ‘RESTORE STACK PTR 
ISR 


ERROR 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


f 
/ 
/ 


= ————_i(<ic =; ~~, _ ~ . = ~ ~ ~ 
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OZREIC.F11 © OE-OCT-7E 09:44 UNIT SELECT PLUG TEST 
3 
a3 O12SS2 104401 ONOCIE TYPE MSGI ;UN CT Pp 
61 3656 3h } TYPE me UT To ext 13 Bae TO CONTINUE 
13ers 7 , ISR bc cc : INPUT C OR SPAC 
| 37 013666 137 Ol MP 128 SBE TURN HERE FOR CONT-E 
§ 01 FA 000026 MOV SPAT.RKMRI(RS) -:EVEN PARITY TO GET DSC 8 ATTN 
#23 rei 5a5-88 Beeass JSR PC, GSTAT 
$351 13003 737 001000 o0s436 BIT 80. PAR, HMR SEE IF F Parity SET 
13712 1 SNE 2s 
3363 613715 104114 ERROR 114 sPARI TY ‘Br NOT SET AFT R SEL DRIVE CMD 
3354 ITH E EN PREITY 
a5 1376 737 o40000 OOS434 28: IT DSC, HMRE 
13724 1081 BNE 1 
| 3357 013726 1041 ERROR 107 ae NOT SET AFTER SEL DRV WITH EVEN PARITY 
€$ 013730 oo000o 1S: MOV SCCLR,RKCSI(RS) 
oe RS ee Be ie Eeaatar 
| sie 013746 104113 ERROR 113 ;NO ATTN AFTER SEL DRV WITH EVEN PARITY 
| See Bisted eat Saree Tyee | need i PEDREES SPACE THEN DONE 
Bs Bisveo Gaara? Baid0e JSR PC, GETSP ier 
| 3366 013764 gue7es 129006 oo0000 MOV SCCLR, RKCSI(RS) 
—«-83 SE BBueé> BSESSS 138 pe Petal sRETURN HERE FOR SPACE 
| 337] bione aed 3$° =NO ATTN 
| 3372 614004 104111 ERROR 111 REMOVING UNT UNIT SEL PLUG, DID NOT 
| 3373 ; SABLE A 
3374 14006 01 100000 oc0000 3s: MOV SCCLR, RKCSI(RS) 
| 3575 614014 0473? S2eaa0 JSR PC GStAT 
27% gi deo 032765 610000 oooo10 BIT NED, RKCS2(RS) 
«Be stiaca Poet ie EREOR tie :RENOY NG UN PLUG DID NOT 
= OoRT NON-EXISTENT DRIVE 
eh O14022 104401 O45030 ug: TYPE  ,MSG67 oxen ort ALL OTHER PORTS 
| 014036 1O4act 041265 TYPE MSG37 :TYPE SPACE WHEN DONE 
| 333 614042 O04 031606 ISR Pc, GETSP GET SPACE 
| 3305 O1404— 104401 041321 TYPE  ,MSG38 :I TUNIT SELE 
| 3386 Siitse 104401 041467 TYPE  'M5G39 DEPRESS CONTR GLE MEN F FINISHED 
| 1 104401 43222 TYPE MSGSS EXIT WITH NORRECT UNIT SELECT PLUG 
| 3208 014062 013746 O0le2ee2 MOV $UNIT, -(SP) 5 SAVE SUNIT FOR TYPEOUT 
| 3360 o140e— 104402 YPOS G0 TYPE--OCTAL ASCII 
_ 3361 614070 001 BYTE 1 : TYPE 1 DIGIT(S) 
HE p07 006 BYTE O $3 SS LEADING ZEROS 
33 14 104401 001205 .SCRLF 
| 3395 o14076 105037 10 CLRB TKQSRT :CLEAR PREVIOUS INFO 
| 3% 6i4ioe 005037 001160 éLR Ht 
3392 014106 113737 033710 OO11EO SS: MOVE  STKQSRT,STMPO ;GET CHAR IF THERE 
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grec 77>,STMPO ;GET RID OF JUNK, IF ANY 
;BR IF fy Ja TYPED YET 


T ewe 


MPO, 83 ; SEE IF Pe 

sSTKINT : re KB INT 
STOP] :ELSE DO VALID HALT 

weal 3” 
ee 
aECi, BK RKCS ‘aa 
ike OR ELECT ORIVE CMO 

sFIND CONTR ROY 

i :CONTR ROY NOT SET 
NED, RKCS2(RS) SEE IF UNIT SELECT PLUG INSERTED 
es 8 IF MATCH DRIVE NO IN CS2. BR IF YES 
RO, #8. ai 8 DRIVE NOS TRIED? 
7§ BR IF NO 
$ ‘ELSE RETURN 
#0. VV, HMRe 
+4 ; TYPE: SAME UNIT SELECT PLUG RDY ONCE 


SCCLR,RKCS1(RS) 
RO,RKCS2(RS) =; DRIVE ADOR 
mPa RKCSI(RS) :PACK CMD 


TEMP] 
pe pnp ;FIND CONTR RDY 
ree :CONTR NOT RDY 
RO,-(SP) +;SAVE RO FOR TYPEOUT 
;;TYPE UNIT SEL PLUS NO 


;G0 
TYPE 1 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 


OScRLF 
&$ 
PC STKINT sENABLE KB INT 

aciR,R R,R CS1(RS) 

T RKCE2 (RED 

in RKCS1(RS) 
T10, TEMPL 
PC FRDY 
11? ;CONT NOT RDY AFTER SEL DR’ CMD 


@NED,RKCS2(RS) ;SEE IF CORRECT PLUG FOR EXIT 
10$ BR IF YES 


MSGSS tEXIT WITH CORRECT UNIT SELECT PLUG NO. 
$UNIT, -(SP) :;SAVE SUNIT FOR TYPEOUT 


5 
Bi 


. 
é 


~- 
- 


ve 
Hat hbhae o8 Rites 


+6 +b -0- o--0 +0 <0 -6 +o e+o-- ee oe ee oe 


O000 O8f0000 oO OOOONO 


ya a ah ed 
Gaeta sand 


Fat} a4 
ihe 
S222 S82 See Se See 
S89 SSGh BEe BARS BE Bae 


SUT EE: 


ooo 
b= bee 
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UNIT SELECT PLUG TEST 


TYPE CORRECT UNIT SEL PLUG 8 
Tye £390 YPE--OCTAL ASCII 
TE 5 te PpRESS LEAL ING ZEROS 
ives sce ‘iPeRES RES SB OhF *p WHEN DONE 
10$: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
ISR PC, GSTAT 
BIT "WY, 
BNE 11s 
TYPE  ,MSGHO :VV NOT SET, INSERT UNIT SELECT PLUG 
TYPE auscs :DEPRESS CONT-E TO EXIT TEST 
118: TYPE MSG?) ;SELECT CORRECT PORT ON OTHER DRIVES 
TYPE  'MSG3? :TYPE SPACE WHEN DONE 
ie ISR Pc GETSP :GET SPACE 


= SESLESSRELESESSFLELSSSSSLSSRSSERELESAAARAAFLLLARSLAERALALALELEFE 
iT TEST 12 PORT SELECTION TESTS 
:# THE OPERATOR IS RSKED TO SWITCH TO THE WRONG PORT 
+ & THEN DESELECT 80TH PORTS. 
i} IN BOTH CASES, NON BD STERT DRIVE SHOULD ASSERT IN RKCS2 


= FELAFREARESERESE SAA SERA SEARS EAALALASELALLLAALSLSRALAASERESAELEKSE 
ures SCOPE i 
#1 SUINES 1 ITERATION 

MOV astac ‘ipC TARE STACK PTR 

ISR “mean 

ERROR 24 ;CERR AFTER SCLR 

TYPE MSG19 ;PORT SELECTION TESTS 

TYPE MSG !DEPRESS CONT-E TO EXIT OR SPACE BAR TO CONTINUE 

JSR Pc, CCSP ! INPUT CONT-E OR SPACE 

MP 4§ RETURN HERE FOR CONT-E 

TYPE  ,MSGH1 sSWITCH TO OTHER PORT 

TYPE MSG37 :DEPRESS SPACE WHEN DONE 

JSR Pc, GETSP :GET SPACE 

ISR 

grt AMES RIECS2 (RS) 

ERROR lee ;NED NOT SET AFTER WRONG PORT SELECTED 
1S: TYPE  ,MSGH2 :SELECT CORRECT PORT 

TYPE  'MSG37 ?DEPRESS SPACE BAR WHEN DONE 

JSR PC, GETSP GET SPACE 
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Tle PORT SELECTION TESTS 


JSR PC, SUBCLR 


ERROR 24 sCERR AFTER SCLR 
I SHED, ,RKCS2(RS) 

ERROR 130 ;NED NOT CLEARED AFTER CORRECT PORT SELECTED 

2s: TYPE  ,MSG43 ;DESELECT BOTH PORTS 

TYPE MSG37 :DEPRESS SPACE BAR WHEN DONE 

J Pc, GETSP 

y PC’ GSTAT 

a ahED, RKCS2(RS) 

ERROR 133 ;NED NOT SET AFTER BOTH PORTS DESELECTED 


;SELECT CORRECT PORT 
MSG37 :DEPRESS SPACE BAR WHEN DONE 


J PC, SUBCLR 
RROR BM 


E :CERR AFTER SCLR 

BIT #NED, RKCS2(RS) 

Ee TST13 48079 NEXT TEST 

RROR 130 D NOT CLEARED AFTER CORRECT PORT SELECTED 
4S: MOV #CCLR, RKCS1(RS) 


JSR pc. cstat 
BIT #NED. RKCS2(RS) 
BE TS 


Q T13 : i907 NEXT TEST 
TYPE »NSGHE : COR PORT NOT SELECTED, TRY AGAIN 
TYPE MSG3 tBEERESS SPACE BAR WHEN DONE 


JSR FC, GETSP 
aR 4§ 


s LELELELELLERLL REL EA LELE LALLA RAE RALALLRELREL ALLER LLELLLLLERAEER 


saT TEST 13 FRONT PANEL RUN/STOP SWITCH TEST 
i THIS TEST ALLOWS THE HEADS TO LOAD. THE OPERATOR IS 
te ASKED TO VISUALLY VERIFY THE SEQUENCE OF HEADS LOADING & 
# UNLOADING BOTH MECHANICALLY & BY THE LIGHTS ON THE FRONT PANEL 
METTCTTTT TTT TTT TT TSEC TTT TTT TT TTT TT TTT TT ttt tT ttt ttt TTS 
t$T13: SCOPE 
MOV #1, STIMES ::D0 1 ITERATION 
MOV #STACK, SP ‘ieoet STACK POINTER. 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
TYPE ,MSG20 ; RUN/STOP SUITCH TEST 
TYPE mSGS2 PRESS CON NT-E TO EXIT OR SPACE TO CONTINUE 
ISR Pc. CCSP INPUT CONT-E OR SPACE 


JMP &$ sRETURN HERE IF CONT-E 


SEG 0069 
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DZR6IC.P11  O€-OCT-76 09:44 T13 FRONT PANEL RUN/STOP SWITCH TEST 
3567 
plepey iowapt Dasiae i OP PRESS SPACE EHEN DRIVE *READY’ ON 
. s) 
zit BteR53 Ap395 BaTdce ISR or E ¥cp RE BSCE 
3S7e2 915034 004737 debued em ISR pc. GsTaT 
3253 BERGE Beige; TtOOOC ED ache sete 
3575 O1S0S0 104140 ERROR 140 ;SPINDLE NOT ON AFTER DRIVE MANUALLY LOADED 
1 po0200 905434 1S: BIT 8D.DRDY,HMR2 § ;SEE IF DRIVE READY (LOADED) 
Ea bi2bes | 8i001 BeOS BR IF Y 
3573 015062 104141 ERROR 141 ‘DRIVE NOT READY AFTER MANUAL LOADING 
see 015064 005037 005370 3S: CLR UNLD ;FOR VALID HALT 
Biso7y tO, Daioee ee | * wena? PT ORESS SPACE WHEN FINISHED 
3263 Bielod Apatee Balbpe 1 (peo eE TSP ERE Race 
3586 O15104 012765 190000 ooj0000 MOV #CCLR, RKCSI(RS) 
3587 QISie 012765 000001 000026 MOV 8I,RKMRI(RS)  ;SELECT WORD 1 
3588 015120 004737 O26420 ISR PC’ GSTAT 
| 3589 015124 032737 900200 ops4a4 BIT #0: DOOR, HMR2 
| 3690 015132 001001 BNE 4§ 
| $31 015134 iod4142 ERROR 142 ;DOOR STATUS BIT NOT SET 
| 3593 015136 104401 o4e4IE 4$: TYPE  ,mSsGHe ;UNLOAD HEADS MANUALLY 
3594 O1S142 104401 O412E5 TYPE MSG37 :SPACE BAR WHEN DONE 
| 2% O15146 004737 O31006 ISR Pc, GETSP :GET SPACE 
| 3597 015152 005370 INC UNLD ;FOR VALID HALT 
| 3596 O1SI15& 012765 100000 opoD00 MOV #CCLR, RKCS1(RS) 
| 3599 O15164% 012765 000001 o00026 MOV $1, RKARI CRS) sSELECT WORD 1 
| 3600 015172 004737 O26420 ISR PC’ GSTAT 
| 3601 O15176 o00040 005434 BIT 8D:HDHM,HMR2 = ; CHECK HEAD HOME 
' 3602 015204 001001 BNE c$ 
3693 615206 104145 ERROR 14S sHEADS HOME NOT SET AFTER MANUAL UNLD 
| 3605 15210 104401 942133 SS: TYPE —, MSGU6 ;DO_MANUAL LOAD 
| 3808 015214 104401 045145 TYPE MSG69 PRESS SPACE AFTER READY ON 
3607 015220 004737 031006 JSR Pc, GETSP 
| 3609 015224 004737 026772 ISR PC, SUBCLR 
#610 016230 104024 ERROR 24 ;CERR AFTER SCLR 
| 3612 015232 012765 o00007 oDDD00 MOV #UNLOAD, RKCS1(RS) ;UNLOAD CMD 
| 3613 015240 013737 O014e6 005444 MOV =: T1O, TEMP 
| 3614 O15246 904737 d2eS062 JSR PC, FRDY sFIND CONTR RDY 
| 31S 0152s2 104017 ERROR 17 ?NO RDY AFTER UNLD CMD 
| 3616 015254 904737 o2esa44 ISR PC, TSTATN 
3617 015260 104020 ERROR 20 ;NO ATTN AFTER UNLOAD CMD 
| #18 015262 6S: 
3620 $2 KELSELEEASKELLASLELAA SKA REARS LARALE REALL AAAERALRARERRARASREEARAEE 
sel LETEST 14 AC LOW DETECTION PART | 
< :* 












3636 015276 
ge 015302 
3639 015304 
3640 015310 
3641 
364e 015314 
3643 015320 
3644 015324 
3645 
3646 015330 
3647 915334 
3648 015342 
3649 015346 
3650 015354 
3651 015356 
35 01$36e 
3653 015364 
ee Bi eaeo 
= D1eNGs 
3657 
3658 
26539 015402 
361 
ste 
se 
3665 015406 
S666 015414 
3667 015416 
3668 
3669 015420 
3670 O1S426 
3671 G1S434 
367e O1S4#e 
3673 
3674 015450 
3675 015454 
3676 O1S4S6 
3677 015460 
378 OlS462 
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3623 


20 
100000 
oos444 


OOS446 
OOS446 


O1S466 


001174 


005436 


005476 
005500 
005476 
005504 
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We ee ete oe 


. = ee anes oe ee ae we 


une 


ig: 


AC LOW 


GO6 
ne PReMETA7e,BFE4 PAGE 71 


A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED. 


Fre Proomn onirS Fon ic Eu Yo AgSeRT IN una. 
. 


FROM THIS POINT, THE 


areata 
AFTER POWER UP, VOLUME VALID IS CHECKED TO BE C 


[Pebeeerereeanasueneecenesesnaeareneneneneseseasaveenenestenes 


ay 
MOV 
JSR 
ERROR 


TYPE 
TYPE 


9$; 
;ACLO REOLIRES 
ACLO W 


eas 
~pomenat 


»MSGe1 
MSGS2 


PC st a 
#CERR 
$ 
TEMP 1 


APPROX 4 MS AVAILABLE BEFORE DC LOW ASSERTS 
ne BE NON-EXISTENT RIVE ASSERTING IN FKCS2. 
LEARED. 


APO dad ERR ER ON 


;CERR AFTER SCLR 


;AC LOW TEST 
;CONT-E TO BYPASS TEST 
:0 SPACE TO CONTINUE 


E 
RETURN HERE IF CONT-E 
:TURN OFF AC(RET HERE IF SPACE) 


;SETUP TIMEOUT 


; SEE IF, GONE THRU 2 TIMES 
:CERR NOT DETECTED BEFORE TIMEOUT 


BINGE WEAGS ARE - ate J i. 


sPe tor PULSE AND SINCE 
ASSERT & CERR 
IS BEING LOOKED iNT 


; THE PROBLEM 
‘Tits TEST WILL EITHER BE ELIMINATED OR AC LO WILL BE MODIFIED TO ASSERT 


es: 


- Saenaea ia 


147 


;AC LOW NOT SET 


DSC!D.VV>,E.AO ;EXPECTED MSG AO 


#<D. 
HS ACLO'D.FLT> 
ecb CARTD. “DOORID: BRHM!D.HDHM> ,E.AO 


#1 


PC, CHKMSG 
gi0t0 


203 
36 





; CHECK eo a 


ter 8 Fe a rs, SWITCH OFF FROM HEADS HOME 


MSG Al ERROR 










1 

sees B1ed5 

3683 015502 

3684 O1S506 

see bieeic 

15516 

3687 015522 

3688 015524 

2689 

3390 015526 

3631 015532 

3st 15536 

2 015542 

ee pies 
36 O155 

397 

3638 015554 

3633 015562 

3700 015564 

3701 

3702 O1SS&E 

3703 91557; 

3704 0156 

3705 Oiseé0e 

3706 

3707 O1SE04 

2708 O1S6le 

3702 015614 

3710 

37i1 O1S61E 

a7le Ol1S6l6 

ea flee 

3715 BEES 

3716 O1SE46 

3717 OlsesSe2 

3718 

3719 O1SES4 

37 015662 

3721 015664 

37. O1SbE6 

37e3 OISEEE 

3724 

3725 

3726 

37e7 

37c8 

3723 

3730 

373) 

3732 SbEB 


104037 


Bee 


be8000 


000010 


005434 


005436 


005434 


001174 


ot a Sag rh Pe. 9 go: % PAGE 72 
T14 OW DETEC 


ERROR 37 :MSG B1 ERROR 
3$: MOV TSO000, TEMP1 
4: MOV acCLR 4k Si (RS) 

JSR 

BIT web, Tileons) 

BNE 

DEC FEnp} 

BNE u§ 

ERROR 150 ;NED NOT SET BEFORE TIMEOUT 


S$: TYPE _,MSGSO sSWITCH AC BACK oN 
TYPE ‘MSG70 ‘VERIFY HEADS ak 980 
TYPE  'MSGE9 !PRESS SPACE AFTER READY ON 
JSR 6c, GETSP GET SPACE 


J PC, SUBCLR 
RROR 2M 


E sCERR AFTER SCLR 

BIT #D.DRDY,HMR2 § ;SEE_IF LOADED 

BNE 3 : YE 

ERROR 141 :DRV NOT RDY AFTER AC UP 
6S: CLR UNLD :FOR VALID HALT 

BIT #0. ACLO, HMR 

ERROR 152 sACLO NOT RESET AFTER POWER UP 
7$: BIT #D. VV, HMR2 

BEQ og 

ERROR 153 ;VV NOT RESET AFTER POWER UP 
8s: 

MOV #CCLR, RKCS1 (RS) 

MOV SUNIT;RKCS2(RS) ;DRIVE & 

MOV PACK. RKCS1 (RS) :PACK CMD 

MOV 0, TEMP 

ISR pe a sFIND CONTR ROY 

ERROR 116 :CONTR NOT RDY 

BIT #D. VV, HMR2 

BNE 64$ 
oe ERROR 27 ; VOLUME VALID NOT SET AFTER PACK CMD 
108: 


© EELLELERE LEEKS LELRES LER AEA AAS ESSRARSAA RE SRAA SESE R AL ALE AAARAATEE 
iy TEST 15 CHECK NXF LOGIC 


.# 
;% THIS TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 
i# AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 


[HPA eee eeeececeneneeenereeneceneneacenenneeeaneneeaeD 


qgeent 
#1, STIMES ::D0 1 ITERATION 
MOV sSTACK, SP ‘RESTORE STACK PTR 
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fe tis 
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3773 O16060 
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3776 
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004737 
104024 


i 
104401 
pis?eS 


02677e 


010000 
040524 


000011 
001426 
OeS0&e 


001434 
025376 
005370 
026772 


oie 
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042720 
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80000 
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64S: 


1$: 


JSR 
ERROR 


106 
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kK NXF LOGIC 
PC, SUBCLR 
24 :CERR AFTER SCLR 
#0, SPIN, HIRE SEE IF Se SPINDLE ALREADY ON 
,MSG29 : PLEASE caIT, HEADS BEING LOADED 
SSRTSPL,RKCSI(RS) ;START SPINDLE CMD 
10, TENPA FIND CONTR RDY 
143 se ONTR ROY NOT SET AFTER CMD 
7400 TEMP2 
FATT sFIND ATTN 
rah ?NO ATTN AFTER CMD 
UNLD ;FOR VALID HALT 
Pc, SUBCLR 
ie ;CERR AFTER SCLR 
,MSG22 :NXF TEST 
sere ‘hea CONT-E TO EXIT OR SPACE TO CONTINUE 
5g TURN HERE FoR PONTE -E 
,MSG51 amee UNIT SELECT PLUG TO CLEAR VV 
MSG37 PRESS space WHEN DONE 
Pc, GETSP :GET SPACE 
PC, GSTAT 
#D: VV, HMR2 
177 :VV_NOT CLEARED AFTER UNIT SEL PLUG 
75 EXIT TEST 
#D. VV, HMRe 
ss ;VV SET AFTER HEADS LOADED 
7$ ‘EXIT TEST 
: R 
Bf nem ;CERR AFTER SCLR 


#1, RKDC(RS) 
HSEEK RKCSI(RS) ;SEEK CMD 


TEMP 
pe OeRBY ;FIND RDY 
131 !NO RDY AFTER SEEK CMD 
TSO000, TEMP1 
PC FaTte2 ;FIND A 
132 : NO OTTN TAFTER SEEK CMD 
#D. NXF , HMR3 


SEG 0073 


f 


uae eam 


eited dotetetetateted tate 
etait tera 


Wire 


xeceuey 


eBeped 
RES 
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016150 001003 BNE 3$ 

016152 104156 ERROR 156 ;NXF_NOT SET AFTER SEEK WITH Vv=0 
016184 000137 016332 JMP 7$ ;EXIT TEST 

016160 032737 000200 O0543& 3%: BIT 80.FLT,HMR3 

016166 001003 BNE 4 

16170 sonles GRROR ize ;NXF_DID NOT SET FAULT 

1617e 0001 016332 MP ;EXIT TEST 


016176 012737 OS0240 OOS47E 4S: MOV a Seaerte ;EXPECTED AQ 


ot 012737 50600 005590 MOV #<D.NXFID : 
lgele O1e737 001720 005502 MOV #<D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>,£.Al 
016220 012737 000001 o0SSo4 MOV #1,£.81 
016226 004737 o2S604 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
Oigs232e 000003 \WORD T.A2!T.B2!0 -& MSGS SPECIFIED HERE 
p16e34 160 ERROR 160 sMSG AO ERROR AFTER SEEK WITH VV=0 
1 104161 ERROR 161 *MSH BO ERROR 
016240 104162 ERROR 162 *MSG Al ERROR 
Ot 2 ib3 ERROR 163 :MSG B1 ERROR 
i 001400 ST CYLADD 
016250 001401 BEQ 
016252 1041 ERROR 157 -  sHEADS MOVED WITH SEEK 8 DXF 
016254 004737 026772 S$: JSR PC, SUBCLR 
Ol6260 104024 ERROR 24 ;CERR AFTER SCLR 
Ols262 012765 100000 op0000 MOV #CCLR, RKCS1(RS) 
016270 013765 O01222 900010 MOV SUNITRKCS2(RS) ;DRIVE # 
016276 O12765 o000003 o00000 MOV #PACK'RKCSI(RS) :PACK CMD 
b16304 913737 001426 905444 MOV T re 
16312 004737 O25062 ISR F ;FIND CONTR RDY 
D1E31E i041i6 ERROR 116 :CONTR NOT RDY 
016320 000100 005434 BIT #D. VV, HMR2 
G16326 001001 BNE 65$ 
016330 104027 ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
O1le232 65S: 
016322 7§: 
s% SREKKESSRE RHA ELLA HRA LH ERA LEH KARA KARA LARA AERA RAALA RAE RELEREREEEEEE 
; ATEST 1b READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
: THIS TEST VERIFIES THAT CYL 410, TRACK 2 CAN BE READ. 
te THIS AREA CONTAINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE 
i FACTORY DURING MANF. ALL BAD SECTOR INFOR (BSE) WILL BE STORED 
if AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 
1% SECTORS 0,2,4,6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC 
i SECTORS 10,12'14,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOFTWARE DETECTED 
1 IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO 
1 IT 15 DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED, 
ti A MESSAGE WILL ae TYPED INDICATING THAT ALL 
+ FUTURE FORMA READ-WRITE TESTS WILL BE BYPASSED. 
‘i THIS IS DONE SO AS NOT T0 DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRITING 





Pil 


ate 004737 
016360 005037 
16364 01 
care bisres 
O16400 012737 
3864 016406 013765 
3866 O16414 012765 
gee? Dibice Die7e5 
Sees Olewse 015737 
Bel flees (eax 
S72 Gleve 04737 
3873 O16456 032737 
3874 O16464 001470 
3875 O16466 104227 
3877 O16470 012737 
3878 O16476 005037 
3879 O1650e 012737 
| 3880 O16510 012737 
| 3881 016516 
| 3882 O16See 012737 
| 3883 016530 012737 
| 3885 016536 004737 
3886 016542 000000 
3887 O16544 104054 
3888 O16546 104026 
3889 016550 104056 
3890 O1655e 104030 
| 3892 016554 004737 
389e O16560 104024 
3893 016562 005237 
3894 O16566 023727 
3895 16574 001007 
| 3896 016576 005737 
| 3897 Olb60e 001002 
| 3898 O16504 104165 
3899 016606 000414 
3900 16610 104167 
2901 Olbble O0041e 
| 3902 
| 


010340 
005500 
001720 
000001 
005506 


025604 


026772 


OOS44E 
OOS446 


o0S4S0 
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001174 


4 
005454 
000006 


000005 


fie eh REAR save Bo Bae oeeee PACK SERIAL 8 


;# 
MH 


itis, 


1S: 


es: 


SEQ 0075 


THE PACK SERIAL # IS TYPED IN OCTAL 8 FOR THE FIRST PASS ONLY. 
EPTTTTTTTTT TTT TTT TTT TTT TTT iirtr tit ttier ttt tity) 


SCOPE 
HOV 


sAthek Se 


PC, SUSCLR 


EMPe 
TEMP3 


22H, TEMPY 
TERS GRR) 
TEMPS; RKDA(RS) 


APS rbd ERR BPE 

: EET OTR en ARE DETECT 
i =55 SECTOR OOF WARE BETECT 
foi 22 SECTOR HARDWARE BSE ADDR. 
;TRACK 2, SECTOR 0 


TABL 
TABL 


#410, ,RKDC(RS) CYL 410 
sRODaTA RACs ch RS); at TA COMMAND 
TS0000, TEMP eat i Hee 

NO RDY AFTER READ DATA CMD 
PC, GSTAT :GET FRESH DATA 
actRR, HCS1 


227 


#<0!D. SPIN!D. DRDY!D. sVVED. .DRA> ,E.AD 
aD; SPOK!D.CART!8.D00R!D. BRHM!D. SSP> 
#1,£.B1 MSG 


;CERR AFTER READ DATA CMD 


;EXPECTED MSG AO 


»E.Al_ ;EXPECTED Al 
ID FOR EXPECTED'MSG B1 

EXPECTED MSG Ae 

:MSG ID FOR EXPECTED MSG B2 

;MSG ID FOR EXPECTED MSG B3 


;CHECK MSGS AO, BO, Al, Bl 
8 MSGS SPECIFIED HERE’ 

"MSG AQ ERROR AFTER READ DATA CMD 
?MSH BO ERROR 

:MSG Al ERROR 

?MSG Bl ERROR 


MSG’ BO 


;CERR AFTER SUBCLR 
;READ ALL S SECTORS? 


;CANT READ SECTORS 0,2,4,6,8 
;CANT READ SECTORS 10,12,14,16,18,20 
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000004 


bbadde 


000001 


4 
004 
005454 
000006 


poo000 
o0s444 


005444 


005406 


MACY1i 27(1006) 
T16 READ & 


S$: 


33: 
es: 


10 


MOV 


$: TST 


138: JSR 


64S: 


SAVE BAD SECT 


LO6 


OR ENO 8 TYPE PACK SERIAL » 


TEMPY , RKBA(RS) 


Hines) 
Fei? 


BSE2OH+E 
95 

MSGS& 
BSERR 
10$ 


TEMP3 

ios #1 
Peck 
TENS, * REDATRS) 


SPASS 


WaSE2eH -(SP) 


#SEEK,RKCSI(RS) ; 
T50, TEMP 

PC. FRDY 
131 


peeratte. 
132 


aCERR,HCS! 
64S 
210 


;RESTORE TABLE ADDR 
;SETUP TO READ 2 SECTORS FROM LAST 


i ee 


T BSE TERROR FLAG 


;STORE 22 SECTOR SOFTWARE BSE ADDR 
STRACK 2, SECTOR 12 
s REPEAT 


;TYPE CART # ONLY ON 1°ST PASS 
;CART SERIAL # 


;CONVERT DBL BINARY WORD TO OCTAL 
TYPE SERIAL # 


;CERR AFTER SCLR 

;RETURN TO CYL O 
rote” TIMEOUT 

itd RDY AFTER SEEK CMD 

PEND a {iNEOUT 

:NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


s LELKLEALLEAEEEA ALE RLLRRRAA EA AAELASARAL ARAL LE REL ERA LEFRALARERKE 


‘Test 


17 


WRITE LOCK TEST 


SEG 0076 


ez 
—o7 

2 
thin 


qayeeneremeiraey be 


oO 080000 AO200000 2000 


3981 


S2EG FHFERR RV 


eo 
nin 
SAS 8 


oR B 


eo 
18 
ae 


Ns PART 3 


744 


001542 
022016 


001174 


005434 


005434 


eee wees ee ae 


-+ 
Ule* ok ee 


1s$: 


1$: 


es: 


16S: 


T1?: 


1 GHP GRT OE Pe 7 


THIS TEST VERIFIES THAT DATA WRITTEN ON A SECTOR — BE 


Tr Lg Checks THA WRITE PROTECT TAKES EFFECT ONLY AT 


OR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL 0, HEAD O 
== Se SER JEJE JE EEE SE EE SEE EEE dE EAE AE EEE A a aE 


SCOPE 


PC, FHOTAB 


#HDTAB, RKBA(RS) 
#-66. , RKWC(RS) 


HEAD, RKDA(RS) 
HEAD 


OC URHERD? RKCS1(RS) 
TEMP 


T50000 
PC, FRDY 


C,GSTAT 
#CERR,HCS1 
64S 


series 
ERR 


iAPS tone "SFack Pre 
;SEE IF — CART 
sBR FF eh? EXIT TEST 


;CERR AFTER SCLR 
yt LOCK TEST 
PRESS CONT-E TO EXIT OR SPACE TO CONTINUE 
* TNPU UT CONT-E OR SPAC 
RETURN HERE IF CONT 
iSEE Fo WRITE LOCK IS ON 


‘DISABLE WRITE LOCK 
; TYPE SPACE WHEN DONE 


;SEE IF WRITE LOCK IS OFF 
;WRITE LOCK NOT DISABLED 


; SETUP 

;FOR 

;FILL HEADER TABLE 
;ROUTINE 


;BUILD STD 22 SECTOR HEADER TABLE 


;HEAD ADDR 


:WRITE HEADER CMD 
fat TIMEOUT 


;NO_RDY AFTER WRITE HEADER CMD 
:GET FRESH STATUS 


SEQ 0077 


UNIBUS RKE DRIVE gt a 


OZREIC.P11 06-OCT-76 09:44 


RE RS 


4018 


104201 


026420 
100090 


000200 
030412 
001422 
001422 
022016 


100000 
017346 


010340 
00 


PART 3 


000003 


000012 
000000 


005476 
005502 
005504 


005510 
005514 


a 27(1006) O6-OCT-76 09:54 PAGE 78 


T17 WRITE LOCK TEST 
ERROR 201 


CMe HEAD, 43 
BNE 168 


Hon 5 S008 


64S: 


;CERR AFTER WRITE HEADER CMD 


;SEE IF ALL HEADS DONE 
:BR IF NO 


;CERR AFTER SCLR 


CLR SECTOR 
14$: MOV SECTOR, RKDA(RS) 
MOV #DATAO,RKBA(RS) ;WRITE ALL 0S 
BIS #BAI, RKCS2(RS) 
MOV #-256. ,RKWC(RS) ;CYL 0, TRK 0, SECTOR O 
MOV #<WROATA? , RKCS1.(RS) jHRITE DATA CMD 
MOV TS0000, TEMP1 TUP Tine 
JSR PC, FROY 
ERROR NO RDY AFTER WRITE DATA CMD 
SR PC, GSTAT :GET FRESH STATUS 
BIT #CERR,HCS1 
BEQ 68$ ;BR IF NO ERRORS 
BIT NESE ,HER ; IF SECTOR FLAG 
ISR PC. TRUERR sELSE SEE IF SECTOR LISTED IN BSE TABLE 
BR 67$ :RETURN HERE IF NO 
INC SECTOR sRETURN HERE IF YES 
CMP SECTOR, #10. "ARE 10 CONSEC. SECTORS BAD 
BNE 65$ :BR IF NO 
ERROR 4 *ABORTING TEST DETECTED 10 BAD SECTORS 
IMP 12S :BYPASS TEST 
65$: MOV #CCLR,RKCS1(RS) ;TRY ANOTHER SECTOR 
JMP 14 
66$: ERROR 12 ;CERR WITH WRITE DATA CMD 
MOV #<0!D. SPIN!D. DRDY!D. VV!D. DRA» E.AO ;EXPECTED MSG AD 
CLR E.80 -EXPECTED MSG’ 80 
MOV #<D. SPOK!D. cART#D. DOOR!D. BRHM!D. SSP» EA Al ;EXPECTED Al 
MOV #1,£.B1 ID FOR EXPECTED MSG B1 
CLR E.A2 EXP ECTED MSG Ae 
MOV #2,£.82 *MSG ID FOR EXPECTED MSG Be 
MOV #35£.83 :MSG ID FOR EXPECTED MSG B3 
JSR PC, CHKMSG ; CHECK MSGS AO, BO 
WORD .A2!T.B2!0 sos BP Ect: tte eB HERE 
ERROR Se :MSG AD ib te AFTER WRITE DATA CMD 
ERROR 23 *MSH BO ERROR 
ERROR 53 ?MSG AL ERROR 
RROR 25 *MSG B1 ERROR 


PES SE BEE a Ra OS SO TY 


SEG 0078 


Vian, ed ~ btn ts: 
UNIBUS RKE DRIVE DIAGNOSTIC © 
D2REIC.P1l © OG OC T-7& 09:44 

7ST 7 fry 

oats Biveoo boos? Seats 

wO73 O17604 104047 

4075 sete 

17605 o04737 26772 
17612 104024 
sbac Sisess REESEE SEARER 
} 

4081 617630 O1 oy 

428 pies oS 1524 

18 17644 613765 O0l4ee 

4085 01 12765 

22 iE RES BEE 

4087 017666 Baae3s 

es rer “0 

4030 01 l 
Bs BE BIS? co 

17716 O01 
| Bae bisree thet, OOOeY 
109% BiSS55 Aang 
| 4038 017732 104022 
| 4100 017734 0340 
«HED Giess2 Geeta? baeets 

410 017746 1573? 17 
4123 017754 1 1 
| 410s Bt oSEE 012737 eee 
4106 017774 012737 900003 
| 410e 737 O2S5604 
| dibs BESSRe BGdHaS 

atte Benois 1453; 
sie 820014 1p4560 
| 413 62001 : 32 : 
| tits 20024 beatae Beaaee 
4117 020030 

S113 eon on ozer7e 

4] 1 
4152 020036 104401 3233 
| #123 De004 Bai 

“is Sante 73? 031 
| ois 

4iZé O200S2 o12765 100000 


re eee 


_ 


ooo000 


69$: 


70$: 


3S: 


~~ ~ <———S ™~ — 
27(1008) O6-O0CT-7& 09:54 PAGE 79 

WRITE LOCK TEST 

Tyee gise7e sABORTING BALANCE OF TESTS 
ERROR 447 sBAD SECTOR NOT LISTED IN TAGLE 
ISR PC, SUBCLR 

ERROR 24 :CERR AFTER SCLR 

MOV SDATAD, RKBACRS) 

BIS #BAI, RKCS2(RS) 

MOV &- RKWC (RS) 

MoV DATAD. WDe sEXPECTED WORD FOR TRUERR TYPEOUT 
MOV SECTOR, RKDA(RS) 

MOV 8<WRTCHK> , RKCSI(RS) jHBITE CHECK CMD 

MOV TS0000, TEMP1  -«; SETUP _TiMEOU 

ISR PC, FROY ;FIND RDY 

RROR iO ROY BF TER WRITE CHECK CMD 

SR GSTAT :GET FRESH STAT 

gi! ACER, HCSL 

iS I BUCE, HCSE ;SEE IF WRITE CHECK ERROR - 

MOV RKDB(RS),WOl § ;ACTUAL WORD FOR PRINTOUT 
ERROR 16 “WCE AFTER WRITE CMD 

ge Os 

ERROR 22 :CERR AFTER WRITE CHECK CMD 
MOV 8<O!D.SPIN!ID.DRDY!D.VV!D.DRA>,E.AQ ;EXPECTED MSG AO 
CLR BO EXPEC 

MOV 8<D. SPOK!D.CART!D. DOOR'D.BRHM!D.SSP>,£.Al ;EXPECTED Al 
MOV #1,£.81 :MSG ID FOR EXPECTED'MSG B1 

CLR E.A2 ‘EXPECTED MSG Ae 
MOV 82,£.82 *MSG ID FOR EXPECTED MSG 82 
MOV 83,£.83 :MSG ID FOR EXPECTED MSG 83 

ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, B1 
“WORD T.A2!T. Beto -& MSGS SPECIFIED HERE 
ERPOR 57 ;MSG AOD ERROR AFTER WRITE CHECK CMD 
ERROR 31 :MSH BO ERROR 
ERROR 60 :MSG Al ERROR 
ERROR 32 MSG 2 nErEOR 
TYPE MSG7e : ABOR BALANCE OF TESTS 
IMP ENDRV 
Ha PC, SUBCLR 

OR 24 :CERR AFTER SCLR 

TPE MSGS sENABLE WRITE LOCK 
T MSG37 ;PRESS SPACE WHEN DONE 
ISR Pc, GETSP :GET SPACE 
MOV BCCLR,RKCSI(RS) 


SES 0079 








+00 +0 <0 +6 +0 +0-< + > +0 --— «+60 +8 +6 ~ 


HH SIGIR FOE Bowes 
Be 


fa 


deed 


EEE SECEELEASE LESS 


- 
Ps 
tw 


4144 


+ £ 
ini 
hs 
a 


a 


41 020eS4 


' 


4167 O20e7e 
4168 920300 


DIAGNOS 
-OCT-76 
> 


8 
ts 


er 


026420 
CO4000 





00S434 


178: 


ss: 


) O6-OCT-7& 09:54 PAGE 80 
WRITE LOCK TEST 
JSR PC, GSTAT 

IT : WRL, HMR2 :SEE IF WRITE LOCK IS ON 
om os ;WRITE LOCK NOT ENABLED 
9R 3$ 
MOV OATAL, RKBACRS) sATTEMPT TO WRITE ALL 1°S WITH WRITE LOCK SET 
gis SBAI, RKCS2(RS) 
MOV 8-208,» RKC ( ) + CYLINDER 0, HEAD O 
MOV SE RKDACRS) 
NOV SuROATR RKCE1 (RS) os veel 
Roy TRODOR TEMPL SETUP It 
ERROR 116 :CONTR NOT ROY 
ISR PC, GSTAT ;GET FRESH STATUS 
ee 
ERROR 207 ;CERR NOT SET AFTER WRITE WITH WAL SET 
IT 80.WLE,HMR3 :CHECK WRITE LOCK ERROR SET 
BNE S$ ‘BR IF SET 
ERROR el tWRITE LOCK ERROR NOT SET 
AFTER WRITE DATA WITH WRITE LOCK SET 

MOV #<D.0SC!D. SPIN!D/WRL'D.DRDY!D. VV!D.ORA>,E EXP AQ 
MOV 8<D.WLE'D.FLT> £.80 
MOV 8<D.SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>,E.Al 
MOY - 81,€.B1 
ISR PC, CHKMSG : CHECK MSGS Al, Bl 
.WORD §6OfdtO :& MSGS SPEC TPtES HERE 
ERROR 123 :MSG AO ERROR AFTER WRITE WITH WRITE LOCK SET 
ERROR 125 :MSH BO ERROR 
ERROR ob ?MSG Al ERROR 
ERROR 127 :MSG B81 ERROR 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV SDATAO,RKBA(RS) ;CHECK THAT NONE OF ORIG DATA 
BIS BBAI,RKCS2(RS) ;HAS CHANGED 
MOV 8-256. .RKWC(RS) °:AS RESULT OF WRITE WITH WRITE LOCK SET 
MOV DATAD, WDe sEXPECTED WORD FOR TRUERR TYPEOUT 


a} 


a 





UNTBUS oi DRIVE DIAGNOSTIC 


OZREIC. 


DE-OCT-76 09:44 


013765 


a 


ess 


a 


001422 


PART 3 


00S434 


07 


pcvsi 27(1006) 06-OCT-76 09:S4 PAGE 81 
Ti? WRITE LOCK TEST 


MOV SECTOR, RKDA(RS) 


“ feonab Ne Pl aeTP qireut CHECK CMO 


OR re Y TAETER WRITE CHECK CMD 
ISR PC, GSTAT GET FRESH STATUS 
SIT SCERR, HOS! 


ET? ice ,HCS2 ;SEE IF WRITE CHECK ERROR 


BEG 1 
MOV REDB(RS),WOl #§ ;ACTUAL WORD FOR PRINTOUT 
ERROR 1£ tWCE AFTER WRITE CMD 
SR 725 
71$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
MOV 8<O'D.SPINID. DROY:D. vv! DvD. DRG? FAO; sEXPECTED MSG AC 
CLR £.B0 
MOV 8<D. SPOK!D. carts b =DoOkt6. BRHM!D.SSP>, 8 Al ;EXPECTED Al 
MOV 81,£.B81 10 FOR EXPECTED "NG 81 
ae ee 
MOV SSE BS OR EXPESTED hee 
ISR PC, CHKMSG oun MSGS AO, BO, Al | pe 
: T.Ae!T.Be!0 
ERR 5? :MSG AD binoa aeTeR Tete HERE CHECK CMD 
ERROR 31 MSH a ERROR 
ERROR 60 :MSG Al ERROR 
ERROR 32 *MSG B81 ERR 
TYPE NSG72 ABORT ING BALANCE OF TESTS 
IMP ENDRV 
723: 
TYPE  ,MSGB4 sFOLLOWING TEST TEMPORARY BYPASSED 
;THE CHANGE OF WRL Logic RESULTS IN A DSC AND ATTN TO THE CONTROLLER 
‘WHICH RECOGNIZES IT AS AN AN ERROR 
THEREFORE, IN CONTINUOUS WRITING RKDA WILL ALWAYS = 1 WHEN THE 
{WRL SWITCH IS ENABLED. 
:THE FOLLOWING CODE WILL BE VALID IF THE PROPOSED ECO IS APPROVED TO 
‘ELIMINATE THE CHANGE OF WRL LOGIC 
IMP 12 sEXIT TEST 
&$ JSR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
TYPE  ,MSGS3 ;DISABLE WRITE LOCK 
TYPE MSG37 :SPACE BAR WHEN DONE 
ISR PC, GETSP :GET SPACE 


J 
ae see ;SEE IF WRITE LOCK OFF 
;TEST FOR WRITE LOCK AT SECTOR SOUNORIES 


SEG 008: 





a 


- a cS 
; 
i 


DZREIC.P1 


4225 
4226 


VE DIAGNOSTIC 


. 
& 
4 
@ 


Be 


44 


PART 3 


0011260 


000012 


005436 


001164 
001166 


000001 


7 ihe 27( 1006) 


F 


10$: 
138: 


21$: 


118: 


EO? 


06-OCT-76 09:54 PAGE G2 


WRITE LOCK TEST 


TYPE 


Bana B 
g S 


% 483353 


oOor-ww 
4205" 


:FOR CONTINUOUS WRITING ON CYL 0, TRACK 0,1,2 


MSGS4 :SET WRITE LOCK 
150 .STMPO “ 
sBITO=O:WRITE O'S; BITO=1;wRITE 1°S 
OcYL 
Pc, SUBCLR 
24 :CERR AFTER SCLR 
170, $TMP1 


8 OR IF tad ly 1's 
al ats ctatel Serie ALL Q° 


tBAL AKCSeCRS) | ;SETUP ALL 1°S 


s25b.., RKWC (RS) «WRITE TRACK os 1,2 62 SECTORS 
RKD Bia : sBEGIN AT TRACK AND SEC 6 
waenta RKCS1(RS) 
T TEMP 
PC, FRDY ;FIND CONTR RDY 
ll [CONTR NOT RDY 
SCERR,HCS1 
13$ 
ee 
204 :CERR NOT SET BY TIMEOUT 
MSGS :DISABLE WRITE LOCK 
MSG :PRESS SPACE FEN DONE 
Pc’ GETSP INPUT SPAC 
12$ EXIT TEST 
$TMP} 
7$ :G0 WRITE OPPOSITE DATA 
#BSE, HER SEE IF Br SECT 
1$ ;BR FN 
OCYL tEL TRY ANOTHER CYL 
TOCYL, #10. see IF 10, CONSE CYL BAD 
10 BR Com CONSEC Pe BSC INDERS 
128 10 8 
8D. WLE, HMR3 
os ;NO WRL BY TIMEOUT 
,MSGS53 ;DISABLE WRITE LOCK 
MSG37 :TYPE SPACE WHEN DONE 
Pc, GETSP 
HDA, STMP2 ;STORE RKDA OF ERROR 
HDA; $TMP3 :STORE FOR ERROR TYPEOUT 
STMP2, #1 ;SEE IF WRL ON TRK O, SEC 1 


SEG 0082 


















DZREIC.P 


4281 021036 


4 1074 
4 1100 
4254 

4295 021104 
4256 Bsitis 
4297 1114 
4298 021120 
4299 

4300 021124 
4301 O21132 
4 661133 
- 1142 
4304 

4305 21144 
4306 021152 
~ ste 
~ ll6ée2 
430° 

4310 O21164 
4311 021170 
431 

4313 O21176 
4214 

4315 
ae 
w3ie Beisio 
4319 

4320 O2l2l2 
i Buss 
355 Be tSEe 
4324 021230 
4325 021236 
4326 021240 
4327 O2le46 
4328 

4329 021250 
4330 

4331 021254 
4332 O2lebe 
4333 O21 
4324 021276 
4335 021304 
4336 O2l3le2 


UNTBUS ot DRIVE DIAGNOSTIC 
06-OCT-76 09:44 





PART 3 





001025 


001024 


001166 


001023 
001162 
000004 


000004 
000010 
00000¢ 
000006 
003504 
000020 


228: 


23s: 


24s: 


ess: 


18s: 


19$: 


20$: 


74S: 


te ere) 





WRITE LOCK TEST 


BNE 
TYPE 
BR 


228 
MSG100 

bs 

$TMPe 


Bo 


rye , 8102S 
ae 


mSG100 
ts 


STMP2, #1024 
& 100 
bs 


i eee 
ane 


STMPe, #1000 
#425, RKDACRS) 
20$ 


ges 
TMPe , RKDA(RS) 
RKDA(RS) , STMP3 


PC, SUBCLR 
24 


STMP2 

80$ 

S$TMP2, #1023 
#8170, STMP1 
#DATAL, RKBACRS) 
74S 


6$ 


#DATAD, RKBA(RS) 
#BAI RKCSE(RS) |” 


KBA wO2 
TOCYL RROC CRE) 


07 


06-OCT-76 09:54 PAGE 83 


RKDA 
EXPECTED WORD FOR TRUERR TYPEOUT 





:BR 
Ese a, ON TRK 2. SEC 21 
NO NEW 3 EER TOOK erAce™ 


EE IF ARO TK 0 SEC 0 


NURL ON SEC 20 
+4 NO NEW SATA Aer eA TOOK PLACE 


| fie SEC 2i 


a iB NEW Sara x KER #55x  BLace 


1 i poe SEC 20 


LSE HL On RK 2, SEC 18 


8 NO OLD ora TO CHECK AGAINST 


ont IF RL AT TRK 1, SEC O 
“ELSE SECTOR AT WAL IS TRK 0, SEC 


tw 


e- 


:SEE IF, MRL AT TRK 2, SEC 0 
ELSE SECTOR AT WRL IS TRK 1, SEC 21 


;GET SECTOR AT WAL 


;FOR ERROR PRINTOUT 


;CERR AFTER SCLR 


E IF TRK/ 
i SEBEAT, NO NEL DBT pata’ XFER TOOK PLACE 
SEE IF TRK 2,SECTOR 19 
*REPEAT,NO OLD DATA TO CHECK AGAINST 


;BR_IF WRITING 1°S WHEN WLE OCCURRED 


;WRITING O°S: HLe SECTOR SHOULD HAVE ALL 1°S 


;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0°S 


; REFRESH 








gid Bxs ORI RANOS TIC ay C PART 3 rs he 27 Cathe? ., ocee reer © 09:54 PAGE 84 SEG 0084 


4337 
4338 021320 o12765 000031 999006 MOV O<WRTCHK)  RKCSL(RS) | juRITE CHECK CMD 
dada BEHSSG BAgoES Bbade Oost Noy TRORR EMPL i BtTyP At 
4341 021340 104015 ERROR 15 !NO ROY AFTER WRITE CHECK CMD 
tee Bike 004737 d26420 sada isk seth fst :GET FRESH STATUS 
G33 Betses | BSi4eo H 
ae Paes i 040000 005410 eB, — ;SEE IF WRITE CHECK ERROR 
~ l te po00024 001502 MOV gt (RS),WOl § ;ACTUAL WORD FOR PRINTOUT 
~ 921374 04134 ERROR 134 WCE AFTER WRITE CMD 
4 1376 37 
1321 021400 104022 818 ERROR 22 ;CERR AFTER WRITE CHECK CMD 
4363 47% . SPIN!D. DROY! >,£,A0 ;EXPECTED MSG AQ - 
sien Beiais BhEtee RAbEdR SOSH? ree BBE bRee YEP OReC Bis 
| 4355 seis 12737 901720 gos50 NOV ie -SPOKID. ned iSe 1p. foe be -$5P> EAL. i sEXPECTED Al 
| w3e0 BS 1438 012737 : = 005510 ov : feb hse fe MSG 
ss 021442 012737 Sppoes 005514 MOV ag E Be ise 1p FOR ENPESTED Mec BS 
4 #1 921450 004737 025604 JSR PC, CHKMSG CHECK MSGS AO , 20, A 
' * * . J . 
4363 021456 Tosos? ERROR 5? se oo feet ee RAE il CHECK CMD 
4364 Dei ¥e¢ 10403 RROR 
| 43ES Qe! 1 RROR G RRR 
«4366 «O214E4 RROR ina BI ERR 
+4367 O21466 14401 045333 TYPE MSG72 : ABORTING BALANCE OF TESTS 
| 1368 021472 137 924006 IMP ENDRY 
| 4G 
«4370 «021476 82: 
| 437] 021476 oooe40 NOP 
4372 02is00 900240 NOP , 
4374 O21 3727 001164 coo4O0 CMP TMP2, #400 ;SEE IF WRL AT TRK 1, SECTOR O 
ie Be ae TED paedeg 
| 4378 Deible 12766 HOV : }. ,RKDACRS) ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 
| 4378 O21522 023727 O01164 O01000 75$: CMP $TMP2, #1000 ;SEE IF WRL AT TRK 2,SECTOR O 
| 43739 0281530 001004 BNE 76S : 
4326 ei532 pers ooo425 900006 MOV 42S, RKOACRS) ELSE SECTOR BEFORE WAL IS TRK 1, SEC 21 
 & 
«4383 «<O21542 005337 O01164 76$: DEC STMP ;GET SECTOR SEFORE WRL 
4384 O21546 013765 001164 oD0006 MOV srs BKDA(RE) 
4385 Del S4 016537 OO0O0E OOl1EE 778:  ## MOV DACRS).$ ;FOR ERROR PRINTOUT 
4386 O21 032737 000001 O01162 BIT Rett Oe eTHeL 
4387 021570 OO1004 BNE 78 :BR IF WRITING 1°S WHEN WLE OCCURRED 
«388 21572 12765 001524 OO0004 MOV sDATAO, RKBA(RS) BRITING O° ScLiLe SECTOR -1 SHOULD HAVE ALL O°S 
| 4288 fei 03 BR 795 
| 4391 O21602 012765 001530 OCOD004 78%: MOV #DATAL,RKBACRS) ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 
4392 O21610 OS2765 000020 cOOdic 798: BIS SBAI, RKCS2(RS) 








BORE Mt UAE BETTIE 2 
4393 021616 BLE7eS 177400 000002 
cg Gis Ghd BE Bee 
4 021640 012765 900031 900000 
4398 1646 ne 1440 O0S444 
iaaa BeiEes a 
“4 1660 1401S 
SH Bie Be EE cos 
4403 021674 001450 
cate tes ; 040000 005410 
4405 ioe poeee 000024 001502 
wee Bei>ie 3 


4442 O22016 O00004 
4443 Oee0e0 012737 
4444 Oee0e& 012706 


4446 O2e2032 004737 
4447 Dee036 


104024 


a 





000001 001174 
001100 


026772 


mAcyis EFA) tes 1% 05:54 PAGE 6s 


ncBa 
nov OCYL, RKDC ( 


MOV T 
ISR PC, FROY 

ERROR fe ad 
ar ace ,HCS1 
eee +. HCS2 
Q ai , 


MOV RKDB(RS) ,WO1 
RROR 


83S: ERROR 22 


a 
MOY «STE: BS 


fe ioe 


MOV CURT ORD EXCSLCRS) 


EXPECTED WORD FOR TRUERR TYPEOUT 
-WRITE CHECK CMD 

sBETUP Tine OuT 

:NO ROY AFTER WRITE CHECK CMD 
GET FRESH STATUS 

;SEE IF WRITE CHECK ERROR 

sACTUAL WORD FOR PRINTOUT 

tWCE AFTER WRITE CMD 


;CERR AFTER WRITE CHECK CMD 


8¢070. SPIN!D. OROV 30 yy ED OR Bae ;EXPECTED MSG AO 

E.B0 ;EXPECTED MSG 

MOV #<D. SPOK!D.CART!0. DOOR!D. BRHM! page? oE.Bt ;EXPECTED Al 
#1,€.B1 Cc MSG B1 


MSG 1p FOR 
ee O POR EXPECTED MSG 
nee 1B FOR EOE TED Nee 85 
;CHECK MSGS AO, BO, Al 


81 
-& MSGS SPECIFIED HERE 
:MSG AO ERROR AFTER WRITE CHECK CMD 


iMSG Al ERROR 
;MSG Bl ERROR 
TABORTING BALANCE OF TESTS 


s LELEEERLEREA REALE AEA ELLA REALL AAA LALA LE RAALE LE LALA LAERARERLLER 


JSR PC, CHKMSG 
-WORD T.Ae!T.Be!o 
ERROR 57 
ERROR 31 
ERROR g0 
ERROR 
TYPE MSG72 
IMP ENDRY 
4s: 
12e$: 
{TEST 20 
3% 


;% 
sé THE 
3% 


MOV #1, STIMES 
MOV sSTACK, SP 


JSR PC, SUBCLR 
ERROR 24 


AC LOW DETECTION PART 2 


3% THIS TEST VERIFIES THAT WHEN AC POWER IS LOST, THAT WRITING CEASES 
AT peCtoR Pale & 

IS APPROX 4 MS BETWEEN AC LOW ASSERTING AND NED ASSERTING 
WHEN THE INTERFACE SHUTS DOWN. 


+ 
ages un enmuimate ie epe cae aguante ease ping thle 2 
: “SCOPE 


THAT THE BATTERY RETRACT IS FUNCTIONAL. 


::D0 1 ITERATION 
:RESTORE STK PTR 


;CERR AFTER SCLR 


UN RKE DRI 
Bonele. Pi 
4449 


0-08 


104401 
104401 


004737 
000137 


004737 
104024 


012765 


T-76 


040371 
043041 


030746 
324006 


001542 
O2eSe4 


TIC PART 3 
744 


005434 


005434 


005406 


000003 


000004 


peevad 


1$: 


118: 


13S: 


64S: 


16S: 


27( 1006) 


AC LOW 


TYPE 
TYPE 


JSR 
JMP 


TST 


10? 


-0CT-?7 :S4 PAGE & 
vefe co ion Bop? i 

,MSG26 sAC LOW-PART 2 ‘oa 
_— Fe ee eam 2 

PC, CCS : INPUT CONT-E OR SPACE 

RETURN HERE Fon Seite 

BSERR :TEST FOR ALIGN CARTRIDGE 
13 BR IF NOT ALIGN CART. 
2 E IF WRITE LOCK 

us =” ‘Be if NO 

Pc, GETSP CET SPACE 

PC, GSTAT 

a0; MRL, HR ;SEE IF STILL WRITE LOCK 
110 *WRITE LOCK NOT DISABLED 
125 ‘EXIT TEST 

TOCYL ; SETUP 

CALADD :FOR 

HEAD ‘FILL HEADER TABLE 
FORMAT : ROUTINE 

PC, FHDTAB ;BUILD STD 22 SECTOR HEADER TABLE 
SHDTAB, RKBA(RS) 

#66. , RKWC(RS) 


HEAD 
+ 7 aaaaataal ;HEAD ADDR 
HE. 


&<WRHEAD> . RKCS1(RS) «WRITE HEADER CMD 

TSOO00, TEMP1  ;SETUP TIMEOUT 

PC FRDY :FIND RDY 
Y AFTER WRITE HEADER CMD 


BC. GSTAT 'GET FRESH STATUS 

aCERR, HCS1 

201 SCERR AFTER WRITE HEADER CMD 
HEAD 

HEAD, #3 ;SEE IF ALL HEADS DONE 

135 'BR IF NO 

TOCYL 

PC, SUBCLR 

24 SCERR AFTER SCLR 


#DATAL,RKBA(RS) ;RETURN HERE FOR SPACE 


eee eee 


UNIBUS RKE DRIVE nid t 
OZREJ 


C.Pl1l 06-OCT-76 09:44 


¥50S 022316 
ae 
ve 
Hee 
_— 


4543 


ee See Rte 


IC 
=f 
ut 


Gees 8 fees : 


88 § 
ee § 


8 


006 
2302 
026772 


fo 


042613 
043606 
001542 
041265 
031006 
001440 
001162 
026772 


000001 


PART 3 


000010 


000012 


001160 


001162 


MACYLi 27( 1006) 
Te0 


17S: 


18S: 


es: 


15S: 


4$: 
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AC LOW DETECTION PART 2 


SBAI, RKCS2(RS) "s 
RKWC (RS) sTRACK 0,1,2 ALL SECTORS 


foevi 


RS) 
sWROATA, RKCS1(RS) 


, HEMP 


ll 

P TAT 
act ,HCS1 
es 


ager, HER 


SEQ 0087 
;WRITE INITIAL BACKGROUND OF 1 
jHRITE DATA CMD 
iF TIMEOUT 
NO RDY y AFTER WRITE DATA CMD 
GET FRESH STATUS 


;SEE IF BAD SECTOR 


#<O!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AQ 


-E MSG 
BB. SPOK!D.CART!B- DOOR'D. BRA?D. SSP>,£.A1 ;EXPECTED Al 
H E.B1 sMSG_ID_ FOR CTED MSG B1 
#2,£.82 :MSG ID FOR CTED MSG 82 
#3,£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHK ;CHECK MSGS AO, 80, Al, B1 
T.A2!T.B2!0 -% MSGS SPeCiE tED HERE 
52 ;MSG AO ERROR AFTER WRITE DATA CMD 
23 : ERROR 
53 :MSG Al ERROR 
25 :MSG Bl ERROR 
12$ 
TOCYL 
TOCYL, #10 ; TRIED 10 CYLINDERS? 
be. :CANNOT WRITE ON 10 CONSEC CYL 
16$ 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
,MSGH9 ; TURN OFF AC | 
"MSGS7 ‘VERIFY BATTERY RETRACT FUNCTIONA: 
BSERR ;SEE IF ALIGN CART USED 
MSG37 *PRESS SPACE WHEN DONE 
pC C,GETSP 


TS0000, $TMPO 
STMP1 

PC, SUBCLR 

e4 


#B1TO,$TMP1 


;CERR AFTER SCLR 


'SKIP ALL WRITING 


;BITO=O0;WRITE O’S; BITO=1:WRITE 1°S 


He 








eae Bxs my 8 C PART 3 


022610 001004 


012765 001530 d00004 


seen 


4571 o547 

re 

4575 022700 004737 O26b4e0 

a5? 3 ‘4 100000 005406 
14 001160 


t 


ae 


SRE RReR RCE seaNN TERE SS 
a 
28 
aS 


O227Se 032737 000100 005436 


005237 005370 

012737 070140 005476 
010300 005500 

Oe 012737 O447e0 005502 

023012 01e737 000001 O0S5S504 


FETTTES 
MMmewu-O 
S 
a 


<= 
o 


023074 032737 000100 005436 


fi 
3 
R 
s 
g 
© 





KO? 


Tee Ae TE be FECPiOn’ Bante AOE 9° 


BNE ;BR IF WRITING 1°S 
pov spar, RKBACRS) ;SETUP ALL 0°S 


es MOV sDATAl, reecs ;SETUP ALL 1°S 


5 goR] Bs fe WC(RS) -TRACK 0,1,2 63 SECTORS 
CLR RKOA (RS) as ;BEGIN AT TRK AND SECTOR 0 

NUDE HG ABAD CBP tes 
MOV T50000, f: 


EMP 
Bion TO NR RTP 


JSR PC el 


IT ERR, HC 
¢ $hreo 
RROR RR NOT SET BY TIMEOUT 
He" Thos ER RHA Bh 
TYPE gitsG63_ pa i AFTER *READY’ LIGHT ON 
TRe 13 XIT sre 
7$ INC STMP1 
BR 43 :GC WRITE OPPOSITE DATA 
3 BIT #D.ACLO,HMR3 
BNE 10$ 
ERROR 147 sAC LOW NOT SET 


10$: INC UNLD ALID HALT 
ay a .DSC!D.P 0, ePineo-9 .VW!D.DRA>,E.AOQ ;EXPECTED MSG AO 


IP! 
V “SPLS!D.ACLOID.FLT>.£.B0 
HOV D. -UNLDED. REV!D. CART!D. DOOR!D.BRHM!D.SSP> ,E£.Al 


;CHECK MSGS AO, BO, Al, Bl 


SEG 0088 


-WORD Of0!0 iB NSG SPECIFIED HERE 
ERROR 35 :M ERROR AFTER AC SWITCH OFF FROM HEADS LOADED 
ERROR 203 inst BO ERROR 
ERROR 36 :MSG Al ERROR 
RROR 37 :MSG Bl ERROR 
8S: MOV HOA, STMPE ;SAVE RKDA 
MOV HDA; $TMP3 :SAVE FOR TYPEOUT 
TYPE »MSG5O : TURN AC BACK ON 
TYPE SGb9 ‘DEPRESS SPACE AFTER "READY’ LIGHT ON 
JSR Be GETSP :GET SPACE 
JSR PC, SUBCLR 
ERROR 24 sCERR AFTER SCLR 


BIT #D.ACLO,HMR3 





2 
B 
z 


aaa 


ete 
wu 


Hey 
45 


wr 
wy 
N 


sefcninenneneaeeee ¢ 


DRT 


wv 
o-- 
~ 


VE 
O&- 


To4i8s 


104022 


: 
istiod 


14 
025062 


000100 


001542 
024006 


026772 
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Bo00i0 
Bose 


005434 


001023 
001162 


07 
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T20 AC LOW DETECTION PART 2 
FRAOR ite ;ACLO NOT RESET AFTER POWER UP 
9S: an D ;FOR VALID HALT 
CS1(RS) 
MOV SUNIT,RKCS2(RS) ;ORIVE 8 
CS1(RS) ;PACK cho 


JSR PC, FRDY sFIND CONTR ROY 
ERROR 116 :CONTR NOT RDY 
git 8D. VV, HMR2 
a ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
: TST BSERR ;SEE IF ypeicn CART USED 
12 rR JF NO EXIT TEST 
14$: 
ISR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
feo Pas TATE AT NO NEW DATA XFER TOOK PLACE 
CMP gine, #1023 :S E IF Fie sPctoR 5 
BEQ 73$ :REPEAT,NO OLD BATRY TO CHECK AGAINST 
BIT #BIT0,$TMP1 
BNE 665 ;BR IF WRITING 1°S WHEN WLE OCCURRED 
HOV BDRTAL,RKBACRS) {WRITING O°S:WLE SECTOR SHOULD HAVE ALL 1°S 


738: JMP es 


66S: MOV #DATAO,RKBA(RS) ;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL O°S 
67$: BIS #BAI RKCSe CR 


( 
MOV STMP3 RRDACRED ;REFRESH RKDA 

MOV aRKBALRS) WO2 EXPECTED WORD FOR TRUERR TYPEOUT 
MOV TOCYL, Rott RS) 


Head ML CHECK CMD 


MOV 8<WRTCHK> .RKCS1(RS) 
MOV TSOO00, TEMP1 ; SETUP TIMEOU 

JSR PC, FRDY ;FIND RDY 

ERROR 15 *NO RDY AFTER WRITE CHECK CMD 
ISR pe GSTAT GET FRESH STATUS 

BIT #CERR,HCS1 

BIT sHICE ,HCS2 ;SEE IF WRITE CHECK ERROR 
MOV RKDB(RS),WOl © ;ACTUAL WORD FOR PRINTOUT 
ERROR 136 tWCE AFTER WRITE CMO 


74S: ERROR 22 ;CERR AFTER WRITE CHECK CMD 


SEG 0089 





ne 
fs 
om 


Bebenneaeenas ules 
fo 
7 


FES 
8 8 
é 


her 

RRL 
forure 

BS 


RHE 
QRRL 


3502 
4e38 O63] 


012737 


016 
104137 


010340 


045333 
024006 


040000 
000024 
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00S476 


005502 
00SS04 


005510 
005514 


000004 
000010 
000002 


001504 
000020 


000000 
OOS444 
005406 


005410 
001502 
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75S: 


68$: 


69S: 
70S: 


71$: 
7e$: 





MO? 


-0CT- $:54 PAGE 90 0 
a ss con 


#<O!D.SPINID.ORDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 


80 EXPECTED MSG 
gSBOK!D. carT!6.D0 BRHM'D.SSP>,£.Al ;EXPECTED Al 
:MSG ID FOR EXPECTED MSG B1 





‘EXPECTED MS 
bee MSG oP ot EXPECTED MSG Be 
#3,£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG sCHECK MSGS AD, BO Bl 
T.A2!T. Beto -& MSGS SPeCTE {ED HERE 
37 MSG AD ERROR AFTER WRITE CHECK CMD 
‘MSH BO ERROR 
60 :MSG Al ERROR 
32 !MSG Bl ERROR 
MSG72 BOR tne BALANCE OF TESTS 
ENDRV 
| 
STMP2, #400 : SEE IF MRL AT TRK 1, SECTOR O 
#21.,RKDACRS) ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 
STMP2, #1000 SEE IF WRL AT TRK 2,SECTOR 0 


69 ;BR NO 
leat ;ELSE SECTOR BEFORE WRL IS TRK 1, SEC 21 


STMPe ;GET SECTOR BEFORE WRL 
TMP2 Be 


DACRS).$ ;FOR ERROR PRINTOUT 
WIT, erie 


tbbroo, conc PR ITING OC ScHLE SECTOR AT SHOULD HAVE ALL O°S 


#DATAL,RKBA(RS) ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 
#BAI, RKCS2(RS) 


#-256. , RKWC( BS) 
SRKBRIRS) fibe sEXPECTED WORD FOR TRUERR TYPEOUT 
TOCYL, RKDE(RS) 


#<WRT CHK) RKCS1 (RS) “WRITE CHECK CMD 
TSO000, TEMP1 SETUP TIMEOUT 

PC, FRDY ‘FIND RDY 

15 NO RDY AFTER WRITE CHECK CMD 
PC, GSTAT :GET FRESH STATUS 

acERR, HCS1 

wICE, HCS2 :SEE IF WRITE CHECK ERROR 


6 
RKDB(RS),WD1 ;ACTUAL_WORD FOR PRINTOUT 
137 WCE AFTER WRITE CMD 


UNIBUS Kb DRIVE DIAGNOSTIC, PART 3 MACVIL 27(1006)_O&-067-76 09:54 PAGE 91 0091 
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1729 023706 000437 BR 775 

4731 023710 104022 76$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 

4? 1 SEES 005476 MOV #910. .SPIN!D.DRDY!D. vv! DR» REO; sEXPECTED MSG AC 
47 CLR C 

47 ble oosso2 MOV #D, SPOK!D. cART!A. DOOR! PRED. SSP>,E.Al ;EXPECTED Al 
i? 1 1 05504 nov te 10 FOR EXPECTED MSG 81 

ea, 

4? ee l peaaps 005510 ase cM DE MSG To Poke 8 PECTED MSG Be 

4733 023752 012737 000003 o0s514 MOV #3,£.83 :MSG ID FOR EXPECTED MSG 83 

474 3760 737 025604 ISR PC, CHKMSG ;CHECK MSGS AO 80, 

me Beeres Bcoce mono [Abt 8et0 eel hk c 
4744 3 thal RROR 3 : nea 

474s 104060 OR 60 ime Al ERROR 

no 3774 104 ERROR 32 $8 ERROR 

474 3 144 045333 YPE MSG72 + OBGR BALANCE OF TESTS 

ioe 024 013? O24006 IMP ENDRV “4 

4750 024006 77$ 

4751 

4752 024006 128 

4753 
ples 024006 ENDRV: 

¢ 
4756 3 ae ae eee tc eee 
we? br T 2l END OF PROGRAM 

4759 1 THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE 

4760 : ABOVE TESTS FOR THE NEXT DRIVE PRESENT. 
4761 ii te ee NEXT TEST Is ENTERED ONLY AFTER ALL DRIVES PRESENT 
4763 if of CoP oN ON COIs TEST’. 
aeee i 2 ponane no apoetpranannis rrr: 
4767 tnt ten 000001 001174 MOV #1, STIMES ;:D0 1 ITERATION 
178 024016 O1270& 001100 MOV #STACK, SP RESTORE STK PTR 
4770 O24022 005237 001220 INC SDEVCT ;INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
4771 Oe4026 023737 OO05526 001220 CMP DRIVS,SDEVCT ARE ALL DRIVES PRESENT TESTED? 
1778 024034 901402 BEQ TSTe2 :-GO TO NEXT TEST YES 
4 024036 000137 012276 IMP NUDRV ‘TF NOT, GO BACK 3 res NEXT DRIVE PRESENT. 
4775 H ee TNE LTIPLE DRIVE CETECTION TEST 

4776 ; ATE MULTIPLE DRIVE DETECTION TEST 

4778 + THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
wa ii AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 
Wel i THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 
4783 1 HEADS MUST BE LOADED (SECTOR PULSES REQ’D) 

4784 # 8° THE OPERATOR IS INSTRUCTED TO INSERT THE SAME UNIT SELECT 


at ttt tt tit L ttt CC Cll lL, 


"omnes me ee ee ee 


UNTBUS RKE DRI 

C7REIC.F 11 

37st 

eros 

4787 

4785 

4785 

4730 

475 

S785 

8794 

s73s 

ares beds 

4798 Oe40Sz2 

4799 

4800 O240Sé 

ee ONE 

oe Os 

4807 Oe4i09 

= Bi 

a GRis 

461 

4824 pent 

4615 O24] 

mH 024140 

seie oeui44 

Weis Besis 

4820 

see Bui ee 

me 024162 

4625 O24166 

4ee7 924170 

4828 176 

4ea6 $5086 

Wess Seueee 
ses 

4824 Oe4224 

4635 Oeses2 
wea? 02Ne% 
4638 oe isae 
4639 Oe4e50 
40 cst 


= 


S ie 


58 
£3 


we 8 
ag 8 


8 B55 BB 
3 383 &S 


Baa 


Be sgeere 
ag Soaeiee 


2°29 
Sain 


rete 001374 


001216 
024370 
O0SS26 
044217 


005001 


oos444 


=, _ 
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Tee MUL TELE DRIVE DETECTION TEST : 
a i al 
:$ PLUG NUMBER (1 PAIR AT A TIME) ON ANY 2 DRIVES 
te C. The OPERATOR THEN DEPRE SSeS THE SPACE BAR TO CONTINUE THE TEST 
is OR @ CONT-E TO EXIT THE TEST 
ty THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT 8 ORIVE UNSAFE 
:* BOTH SET & THAT THE DRIVE UNLOADS 
: ' THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 
: + SFSSSSLSLERSFSSSSSSSSSSSEAELSSSSSELELESSLASHSLRELAASSSLAASSSSLSSSS 
tét22: SCOPE 
MOV 81, STIMES D0 1 ITERATION 
MOV aStAck, iP rApe STACK PTR 
TST SPASS 


OFF yoy jn isT Pass 


1S: oMP DRIVS, #1 cen i et 
Ore Breas Bs TEST cou I ORIVE PRESENT 
IMP 11s 
28: Type .SG28 a ORV DETECTION TEST 
T mSGS2 ;PRESS c -— TO EXIT OR SPACE TO CONTINUE 
ISR Pc CCSP SINPUT CONT-E_OR SPACE 
IMP 11 TURN HERE FOR CONT-E 
TYPE MSG aye HEADS ON ALL DRIVES 
TYPE MSG3 :PRESS SPACE WHEN SONE 
ISR Pc, GETSP GET SPACE 
3S: J PC, SUBCLR 
ERROR ;CERR AFTER SCLR 
TYPE ,mSGS9 s INSERT SAME UNIT SEL PLUG 8 IN 2 DRIVES 
TYPE MSG37 :DEPRESS SPACE BAR WHEN DONE 
ISR Pc, GETSP :GET SPACE 
CLR RO ;DRIVE # COUNTER 
6S: MOV accLR RKCS1(RS) 
NOV 8 bse Fe rs! ORE ECT DRIVE CMO TO GET STATUS 
BF 
JSR FIND CONTR RDY 
ERROR mC sFRO :NO CONTR RDY 
MOV #5000. , TEMP 
ISR PC, OLY’ :REQ 2 MS DELAY BEFORE MDS DETECTED 
MOV #CCLR, RKCSI(RS) 
MOV RO. RKES2(RS) 
MOV #SELDRV, RKCS1(RS) 
MOV T10, TEMP 
























C MACY 1 er (1008) 06-0CT-76 ist PAGE $3 
06-OCT-76 09:44 Tze MULTIPLE ORIVE DETECTION TEST 


T 
if 025062 JSR PC FROY 


UNI 
eoRese. 
~ie 4 
B5N583 1? ERROR 11? 3NO CONTR RDY 
001000 o0s410 BIT amos, HCS2 SEE IF et DRIVE HAS MOS 
ine eS TRY ANOTHER DRIVE 
~Ee 304 000010 Cup RO, #8. ty ALL ORIVES TESTED 
i Bee Ee Bh or Yue 10s 
“es 14 il 1 :TRY AGAIN 
o4401 O44181 7S: TYPE MSGS :MULT OR F ON DRIVE 8 
3 SH i a 
T ::G0_TYPE--OCT 
szee pease} ONE TE iiffee i orefte) 
4857 024327 000 "BYTE 0 ‘SUPPRESS LEADING ZEROS 
| 1338 330 0451 Tree gitsgee _ gery OTH D DRIVES UNLOADED 
4860 340 104401 ov4O4l 10S: ie SCE : INSERT 9 CT a tebte BM S_b08e HEADS 
abe Se a3e0 ner JSR Pc ae, :DEBRESS CONT te 
4863 354 900137 Deas IMP 118 : RETURN FOR SONTHOL -E (EXIT) 
| 4864 360 CLR UNLD TURN HERE FOR SPACE (D0 AGAIN 
“BES 024364 000137 024144 IMP 3$ 
#ee D=4370 005037 908370 11s: CLR  UNLD 
374 026772 J PC, SUBCLR 
Me: oo 1 ZBeoR 24 :CERR AFTER SCLR 
| 
| 


ee 





ee ee ee eee 


ey 
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toes. Pit = Oe - Seo x 08:44 END OF PASS ROUTINE 
4870 .SETTL END OF PASS ROUTINE 
mies [eer Gar ke eee (aE 
4875 i INCREMENT oe Pies  arocoe ¢ RE HOOK 1S A DECIMAL NUMBER: 
d 4 } 
4875 ite Nagres 8 DRONE TOR GO 0 
478 F THERE ISN’T JUMP TO ers" : 
4878 peyce SEOP: 
4680 024404 eae ll argre TSTNM RO THE TEST 
( 58 +s 
4881 624410 005037 abbas éLR TIMES ++ ZERS THE NURBER ITERATIONS 
186 bev 001 NC S ES MENT THE Pass AUMSER 
20 aAsSS 001216 BIC a1 , SPASS T ALLOW A NEG. NUMBER 
| 4884 Deq4s6 DEC PC 
488S 024430 000001 SEOPCT: .WORD 1 
4886 924432 BGT SDOAGN we 
4867 024434 O01 MOV (PC)+,a(PC)+ RESTORE COUNTER 
“Bes 024436 l SENDCT: .WORD 
4889 O24440 924430 SEQECT 
4890 douse 104401 YPE SENDMG s3TYPE “END PASS 8” 
| «48S DeuwHe 019746 O0l2i6 MOV $PASS, -(SP) :SAVE $PASS FOR TYPEOUT 
| 4892 Devise 104405 TYPDS + $60 Tyee DECIMAL ASCzI WITH SIGN 
| 4893 104401 o24s04 TYPE SENULL NULL 
| 489 24460 013700 Od004e SGETH2: MOV da42, RO GET MONITOR ADDRESS 
| 4e9S Oe4464 901405 BEQ SDOAGN : BRANCH IF NO MONITOR 
«=» 4BSE «24466 900005 RESET 2:CLEAR THE WORLD 
4867 624470 604710 SENDAD: JSR PC, (RO) 3360 TO_MONITOR 
| 4898 Ge4472 QgO0240 NOP ROOM 
/ 4893 024474 O00540 NOP tT FOR 
| 4800 Os447— 900240 NOP :ACTIL 
| 4802 Se¥s00 SDOAGN: 
4302 924500 000137 IMP a(PC)+ ; ; RETURN 
4803 Se4502 01065. SRTNAD: . WORD STS 
/ 4904 Oe4504 377 SENULL: . BYTE sNULL CHARACTER STRING 
4 024507 51S o4e412 O42116 SENDMG: .ASCIZ Heo 8 eno past’ s 
Se4Ei4 osoo4d Osiso: O20 
$07 de4E22 500043 


J034 





UNTBUS ot DRIVE DIAGNOSTIC PRRT 3 
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4910 

431 

sie ie 

a: ae Ee 
1s 

agi} 00Seo 0} 

date make Sado 

4515 

4920 

4S21 

4 - 

~ 44 737 4001360 

vase Beueen | Botass 

4926 O02e45Se 005237 001360 

7 Oe4SSE 104401 036220 

4S2e9 Oe4s62 005737 000042 

ion 001 

: 1 ata i272? 001230 000001 

uaas Seae08 Bes7e? oo1lMo 000176 

wa ‘ha 0010905 

da3e Goats AposoS 

4937 O2e4%614 112737 000001 001134 

4932 Oe4é22 

4839 Oe4622 000207 

4940 

494] 

4942 

4943 

soe 

sS4E 

ne a 024624 vee, 

Set Be ie58 815554 177770 

aee3 24636 bs 7 77400 

4951 Oo464e feaee hoses0 

i225 C2464 012704 000060 

4954 O2e46S2e 

4955 Oe46S4 cath 

4956 Oe46S— 005723 

ieee Ce4%66e 0204 000070 

4959 O24666 ats 

4960 Oe4é 005702 

4961 O246 001022 

~ Ce4674 O20l27 177770 
4362 024700 O0142é 
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SUBROUTINES 


-SBTTL SUBROUTINES 
;SUBROUTINE TO CLEAR ALL FLAGS FROM DOUMP THRU DOTIM 


CLRFLG: sOOUMP RO 

1$: rey faba 
Es Ri 

*% 8 

: TYPE PROGRAM ID IF FTITLE=0 


TITLE: ST FTITLE 
BNE 1$ 


on) eroanat 1 

.SBTT TV OF TWARE SWITCH REG TER 

= cet mug ' : ARE NG UNDER XXDP/ACT? 
BNE a SEBRANCH IF YES 
chee NV, #1 t:ARE WE E RUNNING UNDER APT? 
cre Sur, sSWREG ti Sor Te Fu tcH REG SELECTED? 
STSUR GET SOFT. SWR SETTINGS 


65$ 
bas: MOVB #1, $AUTOS 3;SET AUTO-MODE INDICATOR 


i$: RTS PC 


ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
;DRIVS, DRIVO-DRIV? REGISTERS APPROPRIATELY 
: N 

settle mov (SB + RO SET STARTING ADOR OF ASCII STRING 
1$ MOVB  (RO)+,R2 GET ASCII CHAR 

BIC #177400, Re : MASK HI BYTE 

MOV OR 1VO, as :DRIVE FLAG ADOR 

MOV #60,R4 


es: CMP RY, Re ;WAS TYPED CHAR O THRU 7? 


BEQ ;BRANCH 

TST (R3)+ 3;NO, INCREMENT OR FLAG ADDR 
INC RY 

CMP R4, #70 

BNE es ;S/B 0-7 OR TERMINATOR 

TST Re 

BNE 4§ 

CMP R1,#-8. 

BEQ 6$ ;DEFAULT ALL DRIVES 





. 


c 


S 


SES SEESERRERE 

ays 
°- 

ae 

38 
2k 
Baz 
38 
Sz 
ia 


Gex702 905037 05556 7$: CLR SIZFLG ;BYPASS TEST 1 (SIZING) 
Ge470& 900207 RTS PC ; FOUND TERMINATOR, EXIT 


024719 005213 3$: INC aR3 397 UP FLAG FOR T 
00S237 ORIVS ‘oa mite TO BE TESTED 


FO8 

: Pip PME RASOSTEC PT RL UO ETS a 0 oT 
Re 

re Be 3 Es Ga ee 

| 


4 740 4§: TYPE M 
38 SES549 aac TS+ 8 TR5ES jee Rede 1 Oe ateR 
4980 024750 o0S20 cs: INC Rl :$/B NO MORE THAN 8 DIFF 
496: 024752 001 BNE 18 ‘DRIVES TYPED IN. 
438¢ e784 000771 2F 4 _ TIF NORE, HAVE ERROR. 
=984 005237 o0stse 6S: INC SIZFLG :D0 TEST 1 (SIZING) 
4985 024762 000207 RTS PC EXIT. 
= 
4388 ?ROUTINE TO INPUT RKBAS OR DEFAULT. 
aaah 764 1044 ae T 
s532 Ceres oi2605 : Rov. {SP)+,RO ;GET LOW ORDER FROM STACK 
} 4 TST 
| 4994 024772 9001403 BEQ 1$ ;BRANCH IF DEFAULT. 
| 4336 pears 10037 001264 MoV RO, SBASE 
qe09 O02 612727 177440 O01264 1S: MOV #177440,S$BASE  ;DEFAULT VALUE 
| 4998 925019 RTS PC 
| 4999 
| 2500 ROUTINE TO INPUT RKVEC OR DEFAULT 
eos . 
5004 oesoi2 104412 GINT: RDOCT 
ats geal 4 01 HOV {SP)+,RO ;GET LOW ORDER FROM STACK 
| §007 o25020 901405 BEQ 1$ ;BRANCH IF DEFAULT 
| $008 GeSoee 010037 001334 MOV RO, RKVEC 
' §008 O25026 004737 O25044 2s: JSR PC’ SETINT 
£010 Oe2503e 07 RTS PC 
£011 025034 012737 000210 001334 1S: MOV #210, RKVEC ;DEFAULT VALUE 
| Bie 025042 000771 ck zg 
| Be 
Bois ‘ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 
£017 : 
| SOle O25044 013700 001234 SETINT: MOV RKVEC,R 
| §018 Oes0so 012720 031520 MOV SINTER, Geos s INTER ADDR TO RKVEC 





GO8 
BREE TE ONE BER Dera > BBP OALEE PER Sor Pane siifrch RedrstER 
O25054 913710 001336 Moy -RKPRI,(RO) =; PRETO RKVEC#2 
O25060 900207 RTS PC 


3 


sROUTINE TO age Tin tire a (RDY) DURING A DELAY 
sENTER “me A COUN 


Ae AG yt 


STATUS 18 OBTAINED BEFORE THE RETURN FOR EITHER CASE 


bes0ee p3e765 ooo200 ooccce FrpY: grt SPDY,RKCS1(RS) 
101 1$ 
025072. oos444 DEC TEMP] 
001 z4 BNE FRDY 
1 025216 S PC, HOLD ; STORE ALL RK611 REGS IN HOLDING REGS. 
19 737 026336 isk PC; CKCERR sCHECK FOR SPECIAL CERR 
118 ig oo0002 1$: ae , (SP) : SKIP Seek BRRor 
116 004737 Oes2isé ISR - 
1 p64732 026336 13k FC, , CKCERR ;CHECK FOR SPECIAL CERR 
1 07 


' ROUTINE TO FIND CONTROLLER READY AND’ STORE DRIVE REGS ONLY 
g2765 ooo200 o00000 aaa BIT #RDY, RKCS1(RS) 
1014 1$ 


POF LF ESRS wht 
& 


SnomiooeN «DROIT 


1 
l 
l oos444 DEC TEMP} 
144 001371 BNE FRDY! 
146 016537 900034 005434 MOV RKMR2(RS) , HMRe 
154 016537 900036 005436 MOV RKMR3(RS) > HMRS 
162 004737 026336 ISR PC, CKCERR’ ;CHECK FOR SPECIAL CERR CONDITIONS 
t cat poooe 1S a i (SP) 310 fo OUER ERROR 
Sesn3 bipese bopose Soeuae NOY RECS) WS 
ebes 737 026336 J ; BC, CKCERR” sCHECK FOR SPECIAL CERR CONDITIONS 


mem re ce 


HIMS SOR ATOR SUMS OSS Shae oe! San TERS aN 


ISTORE ALL RK611 REGISTERS IN HOLDING REGS 


pesei6 016537 OO0000 OOSYO& HOLD: MOV CS1(RS),HCS1 
016537 000010 O05410 MOV RKCS2(RS) > HCSe 
| O2se32 016537 905412 MOV = RKWCCRS) , AWC 
bese4o 016537 900004 005414 MOV BA(RS) HBA 
016537 005416 MOV A(RS); HDA 
ee ee 
70 0165 16 005424 MOV RKASOF (RS) , HASOF 
025276 Bi bess Boose 005426 MOV RKDC(RS) , HOC 
| 025304 016537 000026 o0S43e MOV RKMR1 (RSS, HMRI 
025312 016537 000034 o0543 MOV 2(RS)*HMRO 
025320 016537 000036 005436 MOV RKMR3(RS) /HMRS 





Ms 
S 


co 


eee rare oe 
Pee 


=8 


SRO VRRPOV Baw lens or SBBURRL OR 


CUNO UTUNT UT OT UT OT UOT OT UO UT UT OT CUT CO UT On OF tn ont 
0 b= 8-2 b= Bs b= Bs Os 2 bs bs bn be Bae bo ba bs Oe 8 bb 2 bs 8 bo B+ = 2 a Oe 


Ww 
a 


en men nnn Neen SST ee ecmmmmmmmmmmnmmme nape 


if RIPGSTIC PART 3 


016537 000030 S0S440 
000032 


aaai 


Se 
oO 
— 
£ 


8 
- 


cl oe 


Bossre 


000002 


00S44e 


00S4eS 


oos444 
000017 


HOS 
BEF tha be POR Sor Piane sifrcn AecisteR 


MOV RKECPS(RS) ,HPOS 
fey  geethtate »HPAT 


ROUTINE TO, ee Tone FOR a ddl 
;RETURN +2 IF ATTN PRESENT Sie TE OVER ERROR). 


tstaTN: MOV RY, -(SP) ;SAV R4 
V Suhr RY 
BITB TN(RY) , HASOF +1 
1S ;BRANCH IF ATTN NOT PRESENT 
an Ce 
800 82, (SP) :INCR RET ADOR TO JUMP OVER ERROR. 
1S: MOV (SP)+,R4 sRESTOR RY 
RTS pt 
; ROUT INE To FINO AT ATTN WITHIN TIMES GREATER THAN 1 SEC 
‘RETURN iT NO are (PRRON EOMDITIONS 
TURN +2 IF ATTN FSUND 
; STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
FATT1: MOV -(SP) ;SAV R4 
3S: nov Pa] TENPI 
1S: ITs A THCAGS . RKASOF+1(RS) ;FIND CORRECT ATTN 
DEC TEMP! 
BNE 1$ 
ne TEMP2 
L MRL(RS) ;SELECT WORD 0 
JSR PC, GSTAT :GET LATEST STATUS 
MOV (SP)+, RY tRESTOR 
RTS p 
2s: CLR RKMR1(RS) 
15k PC, GSTAT GET $I STATUS AFTER ATTN SEEN 
MOV (SP)+,.R4 
ADD #2, (SP) : SKIP OBVER ERROR 
RTS PC 


;ROUTINE TO FIND ATTN BT Tan 1 SEC 

ENTER WITH COUNT a TEMP 

RETURN IF NO ary nN CERROR) 

;RETURN +2 IF ATTN FOUND 

; STATUS Is SBrAINED BEFORE THE RETURN FOR EITHER CASE 


0098 


Ss 


Tartaltar tal tal tales talearieatearea altareat ea taltalealtataliatta Ualtartaltaltalealtartaltal alta taltareal ales taltalial ta talial ta altar easels Calla) 
SRR OLS IS IVRA FIN SSS GSE RES Sw VE Lolo ie VUE ote OD ROE one 








000026 
026420 


037705 


001288 


000017 


108 


MACYL1 27(1006) 06-OCT-76 09:54 PAGE 99 S€3 20 
Nae rote. Te cuircn ReCISTES 8 OUT 
el ed + pomienty 
. ITB BTTNCRY) , Rk +1(RS) ;FIND CORRECT ATTN 
DEC TEN 
C RKMRI (RS) :SELECT WORD 
j Benet Re ‘ee CATEST fetus. 
NOY (SP) +, R4 ZRESTOR RY 
1S: BTR RAMHRICRS) 
amas ies RESTOR RY 
HOG 82, (SP) Pat OVER ERROR 
RTS PC 
ENTER WITH @ 
A ets AbPRox | 1? "Betrerarion + 12 US TO EXIT 
‘WHEN COUNT IS 0. 1/05 
diy: TST TEMP! :5.6 US 
BE : 3-8 US 
DEC MP1 '6.8 US 


iss RTS PC 6-2 ue 


'THIS ROUTINE TYPES BYPASSED DRIVE®. ENTER WITH DRIVE® IN RO 


BYP: TYPE MSG14 ;BYPASS DRIVE 
MOV RO, -(SP) ro FOR TYPEOUT 
1 i390, 1D pisttegy 
O. :;SUPPRESS LEADING ZEROS 


BTU ares Hts eee TO apse FS ter ER ERROR 


PC; GSTAT GET ALL ACTUAL DRIVE & CONTR STATUS 
NITE: Ee ;SET UNIT 8 
BIS 
BIS SuNET E: 5 
MOV TEMP1,-(SP) ;SAVE TEMP! 
MOV E.A0, TEMP 
J PC. SBPER ;GET PARITY FOR MSG AD 
MOV TEMP1,E.AO 


MOV E.Al, TEMP! 
JSR PC, SBPAR GET PARITY FOR MSG Al 


ul 
ere 
Fa brit 
5 
o 


Sa a ae 


Biara> SBSu44 oOssOE TE ne ;GET PARITY FOR MSG A2 


bbe bal Vy . MP 
pbs z Basese wa 38 pcos PR ;GET PARITY FOR MSG 
137 444 005500 att L.£.B0 


sat V : MP 
ee ree “at i Pz Serer :GET PARITY FOR MSG 81 
13 444 005504 TEMP1,E.81 


GRRE 


0+ 0+ b+ ood +H 


site 


UNIBUS RK DRIVE DIAGNOSTIC PART 3 © -MACYLL 27(1006) 06-OCT-76 09:54 PAGE 100 SEG 0190 
O2R6IC.P11  Oe-OcT-76 09:44 SET YALOE POR SOF THARE SUETCH RECISTER 
013737 oosH44 oosso2 mov —«CTEMP1,E.Al 
013737 ooss0e oosH44 MOV «E.R, TEMP 
+ sere 


5202 013737 905519 oos444 Hoy E82 TEMP att pened ten ant te 
7 ; 
Se og ne 
S206 O26016 012737 205514 ocos444 MOV E83 TEMP 
? 4 J AR GET PARITY FOR MSG 83 
ces a ta 
5210 oos444 MOV (SP)+, TEMP! ;RESTORE TEMP! 
ae O26042 013737 001176 001172 MOV SESCAPE,STMPS :SAVE ESCAPE 
13 026050 023737 OOSHSe oDSH76 CMP —s-H. AD, E. AD :TEST MSG AD 
ete bia74? O26072 01176 See SSS sescape §— Fi se SeTuP ESCAPE 
| ; 
2517 BSebeE 11646 MOV e238 s SEPEE ELBE 1 boBR 
eel? 026070 000207 RTS pc :8 RETURN TO MAINLINE ERROR 
5219 032777 001000 1S3040 1S: BIT 8SW9, ISWR RET HERE FROM MAINLINE ERROR 
| 5220 gt 001107 BNE 208 28 BR iF LOOP ON ERROR 
| eel O26102 O6271& ooo00e 2s: ADD #2, (SP) :BUMP RET ADDR TO NEXT ERROR 
3 026106 023737 oOS4e0 oDsSsoO CMP H.B0,£.80 :TEST MSG BO 
626114 001411 BEQ +} : OK 
S225 026116 012737 026130 001176 MOV 84S, SESCAPE ELSE SETUP ESCAPE 
S226 026124 O116 MOV (SP},-(SP) :COPY RET ADDR 
7 Oeb 126 RTS po :& RETURN TO MAINLINE ERROR 
£539 026130 032777 O01000 153002 4S: BIT #SW9, ISWR RETURN HERE FROM MAINLINE ERROR 
£230 026136 001070 BNE 20$ 8 BR IF LOOP ON ERROR 
| es 026140 062716 ooD00e SS: ADD #2, (SP) :BUMP RET ADDR TO NEXT ERROR 
33 026144 023737 oOS4s2 oDsSsoe2 CMP H.Al,E.Al :TEST MSG Al 
ee24 026152 OOL411 BEQ a BR IF OK 
026154 012737 O26166 001176 MOV #75, SESCAPE 
S236 Oeblbe 011646 MOV (SP3,-(SP) 
E27 O26i64 000207 RTS . PC 
39 0261 32777 OO1000 152744 7%: BIT #SW9, aSWR 
a pee 158 1051 BNE 20 
| peu! 026176 062716 op000e QS: ADD #2, (SP) 
5242 H.B1,E.81 ° ;TEST MSG Bl 


S 
“ 
8 
8 
w 
¢ 
8 
wm 
8 
% 


2 
Bi 
M3 
g 


o 
f 
ra 


: 


bo fe ees tae Os 


HSEREA PARAM AGcicuatcanat ctu e eae £ 


rote 
foe 


Snes 


i 


BIAaee TTC PART 3 MACY11 27(1006) 06-OCT-76 09:54 PAGE i01 SEG 010: 


-OCT-76 09:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
001411 BEG 11§ ;6R IF OK 
Ole737? Oebee4 OO117E MOV 810$, SESCAPE 


Bue mp eS 
032777 001000 iSe70& 108: BIT &SW9, JSWR 


Beer ie 000002 118: RCS ie cP) 


032737 000001 O015S2 128: BIT #T.Ae,CHKFLG ; TEST MSG Ae? 


ater 027256 RCYLD Bir TE 8 CYLDIF, DO NOT CHECK 
2737 ooo062 oo1ss2 13S: &BIT a7 . 82, CHKFLG :TEST MSG Be? 
BR4306 027330 beSpevia BR] Fes IN CYLADD, DO NOT CHECK 
oo0004 oolss2 14$: BIT #7 .B3, CHKFLG ;TEST MSG 83? 
BR4393 027366 hic ,RSEC ;PUT INFO IN SECTOR, DO NOT CHECK 
004737 027424 ISR PC, RHEAD :PUT INFO IN HEADA, DO NOT CHECK 
013737 001172 001176 15S: i y SINPS, SESCAPE ;RESTORE ESCAPE 
Te ean CK come tee 
17> Tebecs wy ORT 
:THIS ROUTINE CHECKS FOR C TAIN CONDIT oN 
TS ROE AED, CTO OR MDS SET MeSGaGe A NVAL ID 
001550 EKCERR: TST BYPCERR 
901085 BNE 4§ 
032737 100000 o0S40s BIT #CERR,HCS1 
001001 BNE 1$ ;BR IF CERR 
000207 RTS PC 
932737 004000 oOOS4OE 1S: BIT #CTO,HCS1 
14 BEQ 2s :BR IF NOT CTO 
104211 ERROR ell :CTO ERROR, MSG A & B INVALID 
000207 RTS PC 
032737 O10000 OO0S410 2S: BIT #NED, HCS2 
001401 BEQ 3$ ;BR IF NOT NED 
104212 ERROR 212 !NED ERROR, MSG A & B INVALID 
032737 O01000 905410 3S: BIT #MDS,HCS2 
001401 BEQ 4§ 
104213 ERROR 213 ;MDS ERROR, MSG A & 8 INVALID 
000207 4§: RTS PC 


‘THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 
IT THEN WAITS FOR CONTROLLER READY 





LO8 


UNIBUS RKE DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) O6-OCT-76 09:54 PAGE 102 SEQ 0102 
DZREIC.P11 O&-OCT-76 09:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 


;IF RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 


SeEue4 Bi aoce es soon SST! NY init anSeCRS) at SAIVE 
52 01276 


SpasaRos 


MOV ions :GET spats WITH SELECT DRIVE CMD 
BStaae Baae> Beeces CONN "ee ‘- 
4 ? pole JSR ;FIND ROY 
04117 ERROR 1 PeAFRD Y NOT ser BY END OF SELECT DRIVE CMD 
4 oos444 Hoy { )+, TEMPL ERESTOR TENP1. 
TH S ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AO-A3, BO-B3) 
:8 CONT R REGISTERS. 


tototatotoee 
00 -= 0 = 2 b= b= 
NOU £C lf 


O26462 Baars oo0s444 istari: Noy ren -(SP) ;SAVE TEMP <n on 
BBe?s biz 5 raat ooo000 Nov sett, cscs s CLEAR CONTR ' 
bus BEESte Bie res Boose M PEA Res i Cee WORO S 
14 01276 60 MO TOR RKCSI (RSS ;GET STATUS 
5321 Oe6S22 013737 001426 005444 MOV i fo, rer ; sat tated aaa Gate 
es PSesG ait snes” mane ERROR Le :ROY yore BY Ror a gE pe EF Sp 
bee6 026544 Bt 3939 005436 005474 MOV HMR3, TBs tet MSG 83 
5327 b2e552 g1276s 100000 999900 NOV #CCLR, R, RKCSI(RS) 
bss teas biz es apoote Boaoee V ott BE} “SELECT WORD 2 
le I 9000 MOV $5¢LDRV RKOSL ( crs} 
oz3 0137 014 oos444 MOV TiO TEMP 
02661 ? l ISR PC. FRDY1 :FIND RDY & STORE DRIVE REGS ONLY 
6233 026614 104117 ERROR 117 ;ROY Y NOT SET BY END OF SELECT DRV CMD 
£334 Ocb616 613737 o0S434 ocOs4Es MOV HMR2, H. Ae :STORE MSG A2 
B25 026624 013737 005436 005470 MOV HMR3,H. Be :STORE MSG Be 
E539 DScENS DLSTEE ADiose poDDTD NOV SUNT: AKESSCRED 
23 PSPE de pt SsEe eeaaye Bob oee MOV DAEs (RE) -SELECT WORD 1 
5240 26654 012765 000001 00000 MOV SSELORV RKCS1(RS} 
5341 Oeb662 013737 001426 o05444 MOV T10, TEMP 
E242 026670 004737 025130 ISR PC, FRDY1 sFIND RDY & STORE DRIVE REGS ONLY 
343 026674 104117 ERROR 117 :RDY NOT SET BY END OF SELECT DRY CMD 
44 7 ois7a7 434 o0S462 MOV HMR2,H. Al :STORE MSG Al 
4 04 Ol 436 O0S464 MOV HMR3,H. 81 STORE MSG Bl 
5347 O26712 012765 100000 oo0000 MOV #CCLR,RKCS1(RS) 
48 026720 013765 OOle22 o00010 MOV SUNIT.RKCS2(RS) 
£349 026726 012765 000001 o00000 MOV #SELDRY.RKCSI(RS) ;SELECT WORD O 
026734 013737 O01426 ooS444 MOV T10, TEMP 
£351 O26742 004737 025130 R PC. FRDY FIND RDY & STORE DRIVE REGS ONLY 
este e676 104117 ss al ERROR te pe ERDY NOT sth BY END OF SEL DRV CMD 
e324 026 B13935 ete BpEUE MOV HMR3,H. BO STORE MSG MSG BD 


2 nn mmm 


Boaeve. 


5356 


$364 


RKE DRI 
Pil 


026764 
026770 


027206 
027214 





e-E ow 


012637 
000207 





oos444 


000002 
026420 


000010 
00S444 


000010 


005406 


000026 


001422 
001422 


000026 
001376 
001376 


000777 


MO8 
GET date POR cor faARE SKfTcCH RECISTE 


MOV (SP)+, TEMP ;RESTORE TEMP! 
RTS PC 


I THIS ROUTINE DOES A SUBSYSTEM CLEAR & WAITS FOR CONTROLLER REAQ 
Betula heh eee cine eyorus SE ueere FOR CONTR ROLL 5 FaAGD ee, 
;RETURN +2 IF CERR CLEAR 

éuscr: NOV #SCLR,RKCS2(R5) ;SUBSYS CLEAR 


T10, TEMP1 
ISR PC FROY sFIND ROY 
ERROR 120 :RDY NOT SET BY END OF SCLR 
MOV SUNIT RKCS2(RS) CURRENT DRIVE 8 
SER maitre) EE atuS. 
BC GSTA :GET STATUS 
BIT #CERR,HCS1 ‘CHECK FOR CONT ERROR 
BEG 1§ 
RTS PC 
iS: AD , (SP) ;SKIP OVER ERROR 
RTS PC 


READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 


RDSEC: Nov 83, 3, RKNRI (RS) ;WORD 3 

nev rae SEC TOR 

BIC arch SECT, SECTOR 

ASR RIGHT JUSTIFY 


Ase a iieO 


ASR 
RTS 


'READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ 
RocYLD: MOV #2, RKMRI (RS) WORD 2 

JSR PC’ GsTat 

MOV HMR2, CYLDIF 


BIC #tC<M.CDIF> ,CYLDIF 


ASR KvLOTE ;RIGHT JUSTIFY 
ASR CYLDIF :CYL_DIFF/OFFSET 
ASR CYLDIF ; INFO 
ASR CYLDIF 
CMP CYLDIF , #777 ;CHK TO or IF RET IN COMPL. FORM 
BNE 1$ ;BR_IF_N 
CLR CYLDIF :CLR IF YES 
1$: RTS PC 


READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *CYLAODD’ 


RDCYLA: MOV #2, KMRL (RS) WORD 2 
JSR PC’ GSTAT 










DZREIC.P 11 


027452 
027460 
027464 


UNIBUS RKE DRIVE DIAGNOSTIC 
06-OCT-76 09:44 


013737 
042737 


o0s4 
1600i 


001400 
001400 
101400 
901400 


001436 
0270Se 
00142e 


PART 3 


091400 
001400 


001422 
001422 


NOS 
Get Gace FBR *Sorfaare sulrch RecrstER 


MOV HMR3, CYLADD 
BIC 81C<M.CADD> , CYLADD 
ASR CYLADD :RIGHT JUSTIFY 
ASR cy i¢vk ADDR 
QSR vie ; INFO 
Ree 
!READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT 8 STORE IT IN ‘CYLDIF’ 
RCYLD: MOV H.A2, CYLDIF 
BIC @tC<M.CDIF> CYLDIF ;CLEAR UNWANTED INFO 
CVLDTE sRIGHT JUSTIFY 
ASR YLDIF 
asR CYL 
ASR CYLDIF 
che CYLDIF , 8777 5 CHK TO nee IF RET IN COMPL. FORM 
1$ ;BR IF 
CLR CYLDIF ELSE CLEAR 
1S: RTS PC 


READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN *CYLADD’ 


RCYLA: MOV H.Be CYLADD 
BIC ##C<M.CADD>,CYLADD ;CLEAR UNWANTED INFO 
ASR CYLADD :RIGHT JUSTIFY 
ASR CYL 
BSR CYL 
A €YL 
RTS PC 


READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 


RSec: MOV _—«xHB3, SECTOR 
- BIC #iC<A, SECT, SECTOR :CLEAR UNWANTED INFO 


ASR SEC ;RIGHT JUSTIFY 
ASR SECTOR 

ASR SECTOR 

ASR SECTOR 

RTS PC 


;READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN "HEADA’ 


RHEAD: MOV H.B3,HEADA 
M.HEAD> ,HEADA ;CLEAR UNWANTED INFO 


BIC etc< 
ASR HEADA sRIGHT JUSTIFY IT 
SWAB § HEADA 
RTS PC 
‘FIND SECTOR 1 


TOR 17 
;RETURN IF NOT FOUND 
;RETURN +4 IF FOUND 


bseci7: MOV -«TSOOO, TEMP! ©; SETUP TIMEOUT 
18: JSR PC, RDSEC : ESTOR 
CMP SECTOR, #17. :TEST FOR SECTOR 17 





$e eee C—_0_OoeO—eeeSSe OOO Oe_—_Ooe—_eeeeee>ys 
















UNIBUS RKE DOIVE DIAGNOSTIC PART 3 MACYLI 27(1006) 06-OCT-76 09:54 PAGE 105 
C.P11 © OB -OCT-7E 09:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
c27472 001014 BNE 2g :BR IF NCT 1? 
aA 3-35 O01422 00021 ie 4 Ey S17 
vex SBT GS srs vt" BIE READ SAME TuICE 
7510 O0473 SR ROSEC “ELSE TRY 1 MORE TIME 
023727 Odl422 00002: i SECTOR, 817. 
001404 3$ :BR IF 17 
005337 oos444 28: DEC TEMP} 
1 cs ; TRY AGAIN 
ees Bie? mR 
oo000 3 ADD 84, (SP) ;SKIP OVER ERROR 
B7ee5 BREDES are OB 
sE INO DESIRED Crt. DIFF 
SRETURNSS IF Fons 
parse 013737 436 OOSH44 FCYL: MOV T5000, TEMP! sSETUP TIMEOUT 
7 004 l 1§ ISR PC ROEYLD 
persed de l oos446 CMP CYLDIF,TEMP2 § ; TEST FOR CYL DIFF 
001014 BNE 2s :BR IF NOT FOUND 
004737 0271 JSR PC, RDCYLD 
6 MP cYLDIF, TEMP2 
Ferro ae is? — gr 3$ :BR IF READ SAME TWICE 
REFER ea ise EMRE TE a eee 
1 oos446 CMP CYLOIF , TEMP2 
O27612 O01404 BEG 3$ 
027614 005337 oos444 : DEC TEMP! 
027620 901 - BNE i$ ; TRY AGAIN 
De7b22 RTS PC 
027624 062716 D00006 3S: ADD a6, (SP) ;SKIP OVER ERROR 
027630 006207 RTS PC 
TROUTINE TO F N RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
ERY ER WITH tine tN conoe iN TEMP : 
s RETURN IF NOT FOUND 
:RETURN+2 IF FOUND - SKIP OVER ERROR 
12737 177777 OOS444 FHDHM: MOV 8-1, TEMP! sALL 1°S 
027640 012765 1 MOV #1 RMR (RS) “WORD 1 
Oe7646 904737 d2e420 18: ISR PC; GSTA 
e7b5e 0307 27 og0040 905434 BIT #6) HOHM, HMR2 
re BAN coo BE the 
027666 001367 BNE 1§ 
027670 005337 ocOsH#4e DEC TEMP2 
027674 001256 NE FHDHM 








T-76 09:54 PAGE 106 


SWITCH REGISTER 


Tae 


;SKIP OVER ERROR 


LORD HEADS IN RKMR2 WORD 1 BEFORE SMS 


Fel Fae OVER ERROR 


TO F 


TINE 
ie 


f 





DOS 


SEP ee Tee. eee siircn RecISTER OO 


PART 3 





;SKIP OVER ERROR 


: 


i 
if 


irri 


ITH 66 WORDS OF VALID HEADERS 


ee 





vr 


— 


ee 
‘ 


2 


Bs 


;SETUP HEAD # FOR WORD 2 OF HEADER 
;SETUP FORMAT FOR WORD 2 OF HERDER 


— 
:s E 
- 


fii 2 


> 
5S Ss 


Sa bay SSSeGoEe 


Sibdgddds ad 


10 001514 
00 


ih Inininimniunin 
-@« Sn ete een hee leat hte ka ho eae) 


8 888888sas 


Sass 


en acce 


Pree s TESTS 


nina 


ADDR 
“SECTOR NO 
“HEAD NO 

~FORMAT 


GET SECTOR FLAGS 


HEADER WORD 


HEADER WORD 


ere lO ee 


Hee Bees 
aaa 


;HEADER WORD 3-HEADER CHECK 


;ALL 22 SECTORS DONE? (66 WORDS) 


TINE ors INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 


Qa 

Silo £2 
pm, FS Fy 
oO nw -— 
hat He Be 
w 
a. 3° 
iy) rar ~ 
G ss Ke 
amie idl pn 
ca“ ~~. w 
ao 
28% 222 Su 
«? 
une— 
ze 


Uas 


S88 S88 


» 


Ra rare rat 
tated 


-- ee -_— 


tS 
uw 
wn 


2 
a 
ui 
o 
ty 
4 


S 
i 
3 
So w 
a 
— ¥ 
a 

5 y 
Wd 


;BR IF 20 SECTOR FORMAT 


;SAVE Re 


BASF Rh 


wee te Oe ee 4o-@ 


SERsee 


gpasracints 





GET SOFTWARE DETECTED FLAG 


Re 


sBSE2eS+8. 
PC,FLGTST 


MOV 
JSR 


CODEsD LAD ESD Es DEs DEN DOS? 


UNTBUS TH DRIVE DIAGNOSTIC 
76 09:44 


DIREIC.P 


aieinarapagel 


NOW UITUe- 


0 = 0020 2 hoe 


ttt at a att 


Sea MiaRbuibe 


r 
iY 


06-0CT- 
052710 


040008 


1B sels. 


001422 


001422 


mer 


1$: MOV (SP)+,R2 
PC 


' THIS ROUTINE DOES THE 


fait ut 
TURN IF _NO 


TURN¢4 IF COMPARE 
bi ctst: mov R3,-(SP) 


1S: ge s02), 0-1 


MOV {ap)+,R3 
RTS PC 

2s CMP (R2)+, CALADD 
BOD (ae, R2 
35 i 


38: MOV HEAD , R3 


Bis 1,3 


CMP (RE)+,R3 


06-OCT-76 09: 
‘EOE Cor THARE SWITCH becrIstEs 
BIs @BIT14, (RO) 


PAGE 108 


;RETURN HERE IF GOOD SECTOR 
;ELSE RETURN HERE 


sRESTORE Re 


SCANNING OF THE BAD SECTOR TABLES. 
TABLE (BSE22H, 8SEe2S, ETC.) IN TEMP! 


;SAVE R3 


eee Fg ts 


RESTORE R3 


;SEE IF=CYL # 8 ADR PTR TO TRK/SECTOR WORD 
;GO TO NEXT CYL WORD IN TABLE 


;GET HEAD # FROM FHOTAG ROUTINE 


;ADD SECTOR # FROM FHOTAB ROUTINE 
SEE IF SECTOR/HEAD COMPARE 
iS TIMER PTR 0 NEXT CYL WORD 


BEO 4g 
SR is ELSE TRY NEXT CYL 
4$: MOV (SP)+,R3 sRESTORE R32 
HOO #4, (SP) INCREMENT RET ADDR 
RTS pc’ 
ITHIS ROUTINE S RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
it AND RE-WR ot 2 Ihe INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 
T: Vv a | ) ; 
SORT: fy oe BEE RL 
JSR PC’ RDSEC 
ADD #1, SECTOR 
JSR PC’ MULT6 ;MULT SECTOR BY 6 
MOV $132. ,RO 
SUB SECTOR, RO :RO-SECTOR TO RO = INDEX 
MOV RO, SECTOR 
ADD SRHTAB,SECTOR ;SAVE INDEX 
ADD #RHTAB, RO s INDEX TO BOT HALF OF RHTAB 
MOV #SRTTAB, RL INDEX TO TOP HALF OF SRTTAS 
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010000 


002400 
030464 


00S40& 


OEY vale FR Sorfuane SkitcH REGISTER 


is MOV (RO}4, (RL)¢ sPUT BOTTOM OF RHTAB TO TOP OF SRTTAE 

che RO, #RATHE* 132 

1 

MOV SRHTAB, RO ;PUT TOP OF RHTAS TO SCT OF SRTTAS 
2s MOV (RO)+, (RL+ 

C RO, SECT 

Vv (SP)+.R SRESTOR R 
ney 1B)3,R0 REE To Pi 


SMULT BY &. ENTER WITH DESIRED # IN *SECTOR’ 


fu te: ASL SECTOR :2 X SECTOR 
ag BTR, (SP) 


34 X TOR 
( IS secToR 3(4 x eSese x S) = & X SECTOR 
RTS PC 


mgs PY WeRiFfe& teat tee" ged secTOR 18 CiSTED IN THE SE INecRMRTION 
; CYLINDER AT CYL a0. 


RETURN IF SECTOR NOT i IN BSE TABLE, ERROR CONDITION. 
;RETURN¢2 IF LISTED, SKIP OVER ERROR 


+RUERR: MOV R4,-(SP) ;SAVE RY 
BIT sCFMT,HCS1 ;CHECK FORMAT 
BNE 3$ sBR FOR 20 SECTOR FORMAT 
, 20 SECTOR FORMAT NOT 
"IN THIS PROGRAM 
Toh Hi StERRI = ON HARDUARE DETECTED TABLE 
at mE feet eve 
MOV sgSEZ2S +8. /RY ss ELSE_ RETURN HE 
ISR PC, TERR iS SEE TE IF oN SF TugRe DETECTED TABLE 
3s’ N HE 
18: MOV (SP)+,R4 ;RESTORE RY 
RTS pt ‘RETURN WITHOUT JUMPING OVER ERROR 
3S MOV (SP)+,R4 ;RESTORE RY 
BOD #2, (SP) :SKIP OVER ERROR ON RETURN 
RTS PC’ 


THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST 


UNTBUS 


ee 


0-0 -+ 0+ b--0-+ & oh 8 + 


WMD NOW £ iT 


sass 


beat 
Re 


$736 





a Bee 


zs 


Bae 
Se 
SQ 


: & 


ei 


1s0602 


1S50S66 
1SOSS& 


001406 


1 27(1006) 06-OCT-76 09:54 PAGE 110 
oT VALUE FOR SOFTWARE suiTcH REGISTER 


;THE BSE TABLE FOR THE ABOVE SUBROUTINE. 
;RETURN IF FOUND ON TABLE 
RETURN*2 IF NOT FOUND 


teRRI: CHP (RY), @-1 ;SEE IF ALL 1°S 
BEQ 1$ :BR IF YES, NOT ON TABLE 
che (E4)+, CCYL SEE F ae MATCH 
TST V TO NEXT WORD 
(Es Ely ee} = 
18: ADD #82, (SP) 
RTS pC 


es: CMP he sone BEE EF ZECTOR 8 TRACK MATCH 
TERR ;0R TRY AGAIN 
38: RTS PC 


ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


i KON: & T 

CuKon: AR TP 
BNE 1$ ;BRANCH IF P-CLOCK  tamatid 
fey 8100, , aLkS *L=CLOCK, ENABLE INT 

18: MOV #-1,aPKSB sP-CLOCK, ALL 1 


Moy 8138, aPKS sENABLE ees cf Be, REP INT 


IKWil-L & KW11-P INTERRUPT HANDLER 
CLock: CLR TIMUP 


DEC COUNT 

BNE 1$ 

MOV HZ, COUNT 

DEC t 

BNE 1 

INC TIMUP ;SORRY, TIME IS UP 
1$: RTI 


'ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
ALKOF: TST PCLKF 
;BRACH IF P-CLOCK PRESENT 
CL aLKS L=CLOCK, CLEAR INTERRUPT 


PC 
1$: CLR aPKS ;P-CLOCK, CLEAR INTERRUPT 
RTS PC 


SEG 0110 





Baeve.eit 


guage 


030642 


POEL CLn tS SES RRS 


% 
B 


Soe Ge Gt 


oe 


030714 
030722 
030724 
030730 


03073¢ 
030736 


030740 
030744 


SRonneueegaaaa? 


SOG mmmwwE 
ONMWM EWM O 
[=] 

S 


ME Riseiest — 3 


T-76 


000021 


000001 
100000 


001000 
001103 
001110 


001110 


150174 


000040 


150216 


ar Ce FER*Sor ake ae disten bes 
8 ROT mere gr Aa FOR THE EXPECTED MESSAGES 


eve S ROTATED LEF i Tines. s. Foo! TIME Th THE a BIT $ fatty, 
chi IF aoe cet, TNOCATING BN N 0B 8 OF 1's 


wer SET, INDICATING AN EVEN # OF 1°S ,THE PARITY BIT IS 


aah MOV RO,-(SP) 


MOV R1,-(SP) s M3 Ri 
MOV 8i?., ;SHIFT COUNTER 
CLR Ri : COUNT ' ae 1°S IN TEMP 
cic : CLEAR 
1S: ROL TEMP 1 
Bcc es ;BR IF CARRY CLEAR 
INC 1 :COUNT # OF 1°S 
2s: DEC RO :SHIFT COUNTER 
BNE 1$ 
IT #8IT0,R1 
NE 3$ :BR IF ODD # IN RO 
BIS aM. PAR, TEMP1 :SET PARITY BIT 
3s MOV (SP)+,R1 :RESTORE R1 
Noy )+,RO : RESTORE 


ROUTINE TO ENABLE LOOPING pe INTERMITTANT ERRORS 
;WHEN SLPERR SET a OTHER THAN SCOPE ROUTINE 


: I&: MY LOOP 
ScoP1$: BIT #SW9, ISWR ;LOOP ON ERROR? 
BEQ 1 ?BR IF NO 
TSTB  SERFLG ‘HAD ERROR? 
BEG 1 :BR IF NO 
MOV SLPERR, (SP) 
RTI 
1S: Mov (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 


:ROUTINE TO INPUT A_*SPACE’ OR *CONTROL-E* FROM TTY 
RETURN IF CONTROL-E 
; RETURN +4 IF SPACE 


cesP: TST a$TKB ;CLEAR DONE FLAG 
ROCHR *READ CHAR FROM TTY 
MOV (SP)+,R :GET CHAR OFF STACK 
CMP RO, ISPERR ‘SEE IF SPACE 
BEQ 1s" :BR IF YES. 


UNIBUS RKE DRIVE 78 BGNOSTIC, PART 3 
DZAGIC.P11 06-OCT-76 
2633 030764 020027 900005 
Se2 14 
Seek GaReoe esse ovoese 
5824 
5825 031000 062716 000004 
2 631004 000207 A 
31 777 «1S0134 
Be ute Tos0i6 
931014 O12600 
cee faites Owes OO 
l 14 
1 104401 o406S2 
6837 031030 
2538 031032 
set 
| 5843 
seu4 
| BBGE oa1034 oeeece 
2549 
5848 031036 004727 026772 
Bev2 o31042 1 
5851 031044 005737 005370 
| 585e 531059 poi440 see 
| -Beey Baibee Boas 
| Se Gite cue Oe 
1 10440! 045435 
ce Bis 
| 5860 031072 004737 026772 
| e861 031076 104024 
| §863 031100 032737 010000 005434 
| 68664 O31106 O01 
| BEES 031110 104401 oy4OS24 
| §867 031114 012765 000011 oD0000 
| §868 031122 013737 o01426 oos444 
 §869 031130 004737 d2So6e2 
5670 031134 104143 
| €§872 031136 013737 001434 oDs44e 
| 873 031144 737 025376 
| 6874 O31iso 104144 


SEG 0112 


109 
Se tA BE Pee Loe FERRE slirch Aecrstee” /7* 
cMe RO, aS SEE CONTROL -€ 
re step TRY AGAIN 
1$: ADD 
. mam 


IROUTINE TO INPUT A *SPACE’ FROM TTY 


: TK AR DONE F 
beTsp: Tf - asTKe :SLEBR DON ONE ofk Sy 
MOV (SP)4+.RO :GET che OFF STACK 
CMP RO, #SPBAR aint 
Q i$ T IF ES 
YPE MSG31 
BR TSP Ry AGAIN 


18: RTS PC 


iT T NT Y TYPING A CONTROL-C. 
Be oer Oo : E Ou THE BPERAT RATOR TO HALT THE CPU WHILE INSURING 


That ofEROS ARE AL BRDED 8 FORMATTING IS VALID BEFORE ACTUALLY HALTING 
drop: CMP -—«(SP)+,(SP)+ | ; RESTORE STACK FROM INTERRUPT 
TOP1: JSR PC, SUBCLR 
_ ERROR 24 :CERR AFTER 
TST UNLD ;SEE IF HEADS UNLOADED 
TST rr ‘SEE IF MANUAL OR AUTO MODE 
BEG l ‘Be if MANUAL MODE 
TYPE sitsc7s :PGM ABORT PENDING 
18: PPE -MSG7S ;HALT PENDING 
JSR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
BIT #D.SPIN,HMR2 § ;SEE IF SPINDLE ALREADY ON 
BNE 64S :BR IF YES 
TYPE  ,MSG29 ;PLEASE WAIT, HEADS BEING LOADED 
MOV #SRTSPL,RKCSI(RS) ;START SPINDLE CMD 
MOV T10, TEMP 
JSR C.FRDY sFIND CONTR ROY 
ERROR 143 :CONTR RDY NOT SET AFTER CMD 


5100 TEMP2 


JSR FATT! ;FIND A 
ERROR vy 


:NO arin THFTER CMD 


NN EEE ee —EOEOOEOEOEOEOEOEOEOEOEOEOEOOEOEOEEeeEeEEeeeeeeeeeeee 
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OZR6IC.P11 06-OCT-76 


031152 


B 
i 


le a ee ed oe 
e-+e-b + 


Brew 


uy 

i 

o—. 
£ 


93 
ga & 
BE cen 
5886 031e14 
Eee 031220 

88 

031222 
$899 031230 
5891 Gast 
Us 
S834 031246 
5895 031254 
Peas 031260 
5898 te -4 

aK 
ae Bie 
se 
Bs Bil 
5904 031320 
§90S 0313e4 
5906 0313c6 
§907 031330 
5908 
6909 
$910 031330 
$9il 
Bais 031334 
$913 031340 
§314 O3l34e 
S915 031346 
pale 031352 
591 
5918 031356 
5919 031362 
$920 031364 
§9e1 
§$ee 031370 
§9e3 
5924 
$35 
53c6 
927 
See 
§3¢9 
$930 


005737 


031370 


000000 
000010 
0009 


o0s444 


MACY 
GET VAL 


ess: 


66S: 


4§: 


S$: 


li 


rs 


) 06-OCT-76 09:54 P 
SOFTWARE SWITCH REGISTER 


4 
ND 
BCCLR,RKCS1(RS) 


SUNIT-RKCS2(RS) 
BRECAL ,RKCSI(RS) 


pe ceRBy 
124 
#1,RKMRI(RS) 
PC, GSTAT 


#D.RTZ, HMRE 
Ft 


214 
T10, TEMP2 
PC FATT 


aCCLR,RKCSI(RS) 
ina R5)' 


ree 
PC. TSTATN 
66$ 

154 


FORM 


42 
S$ 


MSG76 
$E0PCT 
SEOP 
,MSG77 
STS 


AGE 113 SEG 0113 


;SEE IF HEADERS VALID 
:BR IF YES 


CMD 
:RESET rc SIFEOrESET & CYL ADDR REG 
Be Tineout if 


EADY NOT ser AFTER RECAL CMD 


;SELECT WORD 1 


;RTZ wr SET aaa RECAL CMD 
je TUP {ie OUT 


FIND ATTN 
INO ATTN AFTER RECAL CMD 
ee “DRIVE CLEAR CMD 

TIMEOUT 


FIND RDY 
:NO_RDY AFTER DRIVE CLEAR CMD 
;TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


;WRITE VALID FORMATS 


;SEE_IF MANUAL OR AUTO MODE 
BR IF MANUAL MODE 

:PGM ABORTED 

;SET UP EOP TO EXIT TO MONITOR 


;CPU HALTED 
;START OVER IF CONTINUE PRESSED 


FORM: 
-SBTTL UNEXPECTED TIMEOUT HANDLER 


:THIS ROUTINE IS ENTERED IF THERE IS 
A. NON EX ea MEMORY (NO SSYN) 

B. BOUNDORY ERROR 

C. STACK OVERFLOW 


UNT RKE DRIVE DIAGNOSTIC PART 3 Y mates 09:54 PAGE 114 SEG 0114 
DZ OE-0CT-76 09:44 UNEXPEC FED PP SeouT HAN 


C.Pll 
e933 031370 011600 BADTMO: MOV (SP),RO VE PC WHERE TIMEOUT OCCURRED. 
en 
Baag Bat80§ B85C39 ono iu7sae tet ofS sou abi eat 
ea3 B3taos int o4e044 ae Ba ABORT T sts. xP ali 40. a PCs 
2338 nett bicose MOV ,= (SP) :;SA FOR TYPE 
5 ee t bits ASCII 
cad Bg Oe BME Hi 
eaig pattie g32777 001000 147514 18: ert #SW9, ISWR if pron” 
5o44 9314 CMP (SP)+, (SP)+ g STACK 
Peat 0314 nate 147452 IMP aSLPADR S postr, BODR 0 OF TEST 
ea 031434 032777 O40000 147476 2S: BIT SSUL4, SHR OOP ON Test? 
cas netted atte RTI ND. 
5951 O31446 000000 3S: HALT sUNEXPECTED TIME OUT OCCURRED 
Poe ’ 3S INDICATED, YOU CAN LOOP 
3 “ERR ON TEST OR” INHIBTT 
59054 ERROR’ rypeour” BY SETTING THOSE 
B56 ; SW ITCHES. 
957 0314S0 ote CMP (SP)+, (SP)+ REST TACK 
p58 i452 000137 oce44oe IMP SEOP :ABORT TESTS 
3260 .SBTTL MEMORY CHECK ENABLE TRAP 
592 031 012737 031472 001176 MEMERR: MOV 1s SESCAPE 
£963 031 011637 001354 MOV SP}, TRAPPC ;STORE PC 
a4 031470 04202 ERROR So :UNEXP MEM PARITY ERROR 
5966 031472 005037 001176 1S: CLR SESCAPE 
5967 031476 032777 O01000 147434 BIT 8SW9, ISWR ;CHECK IF LOOP ON ERROR 
5968 031504 001001 BNE 2s YES, FORCE STACK AND TRY AGAIN 
2268 031506 o0c0d2 RTI ELSE RETURN 
5371 031510 012706 001100 28: MOV #STACK, SP ; INIT STACK 
2276 031514 900177 147370 IMP JSLPERR 
Baad .SBTTL RKOG INTERRUPT HANDLER 
5976 031520 o00240 INTER: NOP 
2277 031522 NOP 
978 031524 NOP 
6979 031526 011600 MOV (SP), RO ; SAVE PC WHERE INT OCCURRED. 
6980 031530 905740 TST -TRO} : GET PC BEFORE UPDATE. 
5961 031532 104401 037354 TYPE MSG NT AT PC= 
Boge 031536 O1004%6 MOV AD SP) 1 SAVE "tg FOR TYPEOUT 
5984 O31540 104403 TYPOS ::G0 TY YPE--0C TAL ASCII 
e965 031542 006 .BYTE 6 :: TYPE & DIGIT( 
S986 031543 000 "BYTE 0 :: SUPPRESS PERDING ZEROS 


A TTT 


LOS 
UNIBUS Ake DRIVE DIAGNOSTIC. PART 3° MACYI4 27(1008) O6-0CT-76 09:54 PAGE 118 $0 O18 
gee S310 00s NOP 


5989 031550 000240 NOP 
£331 031552 000002 RTI 
3 .SBTTL POWER DOWN AND UP ROUTINES 
5s ;POWER DOWN ROUTINE 
5996 031554 012737 031566 000024 SPWRDN: MOV SSPWRUP,PWRYEC ;SET UP VECTOR 
5997 O31 3b¢ 99596 HALT 
e228 i564 000 cf 2 ;HANG UP. 
a ;POWER UP ROUTINE 
031566 031640 SPWRUP: CLR SPWRCT ; Walt LOOP FOR TTY 
031572 Breese 031640 1S: INC SPWRCT sWAIT FOR THE INCR 
5004 031576 001375 BNE ;OF_WORD 
6005 031 b1e73? 931554 900024 MOV P ial POWER DOWN VECTOR 
eos Bi P08 te poosap BpooSe ROY aPR? »PURVEC SS. re NTERRUPTS FOR TRAPS 
t 
tee Beige 8} BB NOV asTAtK, SP HOGA ALL INTE 
' §009 O31626 104401 037550 TYPE wMSG11 REPORT POWER FAIL 
| 10 031632 RESET 
| i 1634 137 012434 PFSRT 
6613 031640 oo0000 SPWRCT: O ;WAIT COUNT FOR TTY 
| 6015 ; 
| Bcig ;DIVISION UTILITY ROUTINE 
$018 : RO-R1-R2-R3=DIVIDEND 
| 6019 :R4Y-RS=DIVISOR 
; RO-R1 =REMAIND R AFTER DIVISION 
£021 R3=QUOTIENT AFTER DIVISION 
Stee ENTER WITH JSR PC,M.DPID 
| 6024 O31642 012746 oD0040 f.DPID: MOV #40,-(SP) ; COUNTER FOR DIVISION CYCLES 
6025 O31646 O10446 MOV RY, ~(SP) 
$026 O31650 O10S4E MOV RS; -(SP) ig ORDER TO THE STACK 
| 6027 031652 O05466 ooo0D2 NEG 2($P) FORM NEGAT 
60e8 031656 O05416 NEG asP :VERSION OF DIVISOR 
| } 031660 ooooce SBC 2(SP) 
6030 O31664 061601 ADD aSP,R1 
| 6031 031666 005500 ADC ;PERFORM INIT SUBT. 
6032 031670 O&6600 coDdne ADD 2(SP),RO 
£033 b31674 03445 BCS M.OPSO ;IF_CARRY THEN OVERFLOW HAS OCCURRED 
eb34 031676 CLR - (SP) ‘THIS IS A LONGER LASTING CARRY BI 
_ 6035 931700 906103 M.DP4O: ROL R3 
| 6036 031702 906102 ROL R2 
6037 031704 0O0610i ROL R1 
£038 031706 006100 ROL RO 
$039 031710 o0S716 TST asP TEST CARRY INDICATOR 
£040 31712 001410 BEQ M.DP41 :IF TO CARRY THEN ADD, ELSE SUBST. 
| 6041 031714 O05ci6 CLR asP : CLEAR Se FOR NEXT TIME 
6042 O31716 O66601 oDD002 ADD 2.SP),R1 
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G DRIVE DIAGNOSTIC PART 2 ACYL 2711006) Og-OCr-7B 08:54 PAGE 116 SEG 0116 


i 
M3 


; Pp AND UP 
031722 oossoo ADC RO sADD -(DIVISOR) 
17, asP sSET CARRY 
175s PeEens oooco4 Boe (SP) RO 
17 M.DP42 
031734 060501 M.DP41: ADD BS,R S ontinend 
2 ; 
ing Bee x & a cae 
Bs ian eer M.DP42 abe Sep T CARRY 
cite Boe? E ° ; ae sof FEL, THE UPDATE INDICATOR 
1 1401 BEQ +4 IF O,FORGET IT 
175¢ NC 3 NO CARRY POSSIBLE HERE 
1754 p00006 ¢ S(SP) : DECREMENT 
1760 ? BGT M. OP :BR IF MORE TO DO 
1762 ROR R3 
1764 10 BCs M. DP44 
1766 060501 ADD RS,R1 
031770 0 ADC RO 
031772 960400 ADD R4,RO 
031774 1 cLe 
M.DP4Y4: R S 
p33 078 433 000010 Abb io, SP ;ADJUST STACK BY 4 WORDS 
932004 900242 CLV 
032006 RTS PC 
16 ’ : . 
8 19 oooc0s M.DPSO app #6, SP 
032016 900207 RTS PC 


orep 1 Ei) ute 09:54 PAGE 117 SES 0117 


pat SCOPE HANDLER ROUTINE 
{ETEIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
Seg We Bie ig HH We diPE 
iN WT tine ag 





6980 rast SWITCH OPTI ti PROV D BY TH 
6 ~ 8 TERATIONS 
: Heat = PPh be 
£084 Eey IN SWR<7:0> 
eoee hora SCOPE SCOPE=10T 
;* 33 = 
cba? SSCOPE 
Epes 104407 CKSUR TEST FOR CHANGE IN SOFT-SWR 
6090 040000 147110 1S: IT 81714, , aswR :1LO0P ON. PRESENT TEST? 
6093 1114 tee! SW14=1 
-geeeeSTART OF CUDE FOR THE XOR TESTERSseee 
60 000416 $xTSTR: BR 6$ $3 F RUNNING ON THE oe TESTER CHANGE 
6094 HIS INSTRUCTION T NOP™ (NOP=249) 
£095 01 ooo004 MOV JERRVEC, - (SP) SAVE THE CONTENTS oF Aue ERROR VECTOR 
Ol 032060 oo0004 MOV #5$, JHERRVEC :SET FOR TIMEOUT 
pies 7 I TST #177 iiTT ° 


8 


T 
oFAcK AFTER A TIME OUT 


e 


: 
| 


pin oooco4 SS: step ya’ oeernvec } ri FORE ve 
BiB ae BR ; RESTORE hie ERR eENY fEeF 
6103 6$:;#8888eEND OF CODE FOR THE XOR ‘tESTERGEAES 
6104 e777 co0400 147042 gir ag1T 08, aSWR ;;L00P_ON SPEC. TEST? 
6108 i 167737 147034 001102 CMPB SSHR, $TSTNM :20N THE RIGHT TEST?  SWR<7:0> 
bie b3elig 10673? 001103 2s: FES Serr HAS BNE OR OCCURRED? 
61 119 001421 BEQ ::BR 
6110 032116 123737 001115 001103 CMPB SPRNAX, SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
pill 032124 101015 BHI 3$ : 
blie O32le6 001000 147004 BIT #81709, ISWR ::LOOP ON ERROR? 
6113 pasta 001404 BEQ 4 ;;BR 
6114 032136 013737 001110 001106 73: MOV SLPERR,SLPADR ;;:SET LOOP ADDRESS TO LAST SCOPE 
6115 032144 o00446 BR SOVER 
Ett pastes 037 Bot io as eLRe oe inee 11 Gt Fae THE NUMBER oF ITERATIONS TO MAKE 
as 
Eile pssiee boonies BR 1s SESCAPE TO THE NEXT TEST 
6119 032160 O04000 146752 3%: — BIT #BIT11,9SWR i EAMIBTT ITERATIONS? 
6120 O32166 O01011 BNE 1 F YES 
ri Bait Gircge colale ne an abe Simic 
piss Bastee ppea99 001104 INC SICNT H rworendtt ITERATION COUNT 
6124 O32202 023737 001174 001104 CMP STIMES, SICNT 5s CHECK THE NUMBER OF ITERATIONS MADE 
-£125 032210 o02024 BGE SOVER -BR IF MORE ITERATION REQUIRED 
«6126 +032212 012737 00001 OD1104 1S: MOV #1, SICNT j REINITIALIZE THE ITERATION COUNTER 
‘6127 220 013737 032276 001174 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
| 6128 032226 105237 Odlice $SVLAD: INCB $TSTNM + SUNT TEST NUMBER S 
6123 032232 113737 001214 MOVE § §TSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
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ah 


i 
4 
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MACY11 27(1006) 06-0CT- 
SCOPE HANDLES ROUTINE 
MOV (SP), $L 
MOV (SP): SL 
CLR SESCAPE 
MOVB 61, SERA +: 
SOVER: MOV grein a SPLAY +: 
AOR, ( : 


RTT ; te 
SMXCNT: . NUMBER OF ITERATIONS 
.SBTTL ERROR HANDLER ROUTINE 


SERPRSEEESESESESESESESESESLELESELSERESELLALS SREP ARES EEE SEE EE SS 
:aTHE sone f ‘Ear WI EN NUFEER AND THE tte fn FLAG AND THE a COUNT, 


SS OF THE CALL 
ithe Sarto cP¥fone Pe PROVIDED BY THIS ROUTINE ARE: 
:#5K13=] SHIBY? Tt EReoe TYPEOUTS 
‘seuidsl BELL ON ERROR 
: #5u03= LOOP ON ERROR 
:# ERROR NN ;;ERRORSEMT AND NeERROR ITEM NUMBER 
SERROR: 
a oKSi -- HST 2 FOR CHANGE IN SOFT-SwWR 
Bs ¥ tere LE ae Frag GO TO ZERO 
MOV STSTNM, DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
T IT10, dSWR 5 SPELL on ? 
i‘ ° FRING BELL 
1S: INC gSeeht 3 3COUNT T THE NUMBER OF ERRORS 
MOV (SP) SERRPC :GET ADDRESS OF ERROR INSTRUCTION 
Sus SERRPC 
MOVB  aStRRPC,SITEME s3STRIP IP AND SAVE THE ERROR ITEM CODE 
BIT #81713, aSWR ::SKIP TYPEOUT IF SET 
eh 208 :SKIP TYPEOUTS 
SR TYPERR 360 TO USER” ERROR ROUTINE 
ae Type ~3—._  SURLF 
CMPB SAPTENY, SENV ;;RUNNING IN APT 
NE 2s NO, SKIP APT ERROR POR 
MOVB ITEMB, 21 ::SET ITEM R AS ERROR NUMBER 
JSR C,SATYS :;REPORT FATAL ERROR TO APT 
218: BYTE O 
22s: BR ees ;;APT ERROR LOOP 
es: TST aSWR ;;HALT ON ERROR 
BPL 33 :SKIP IF CONTINUE 
HALT ;;HALT ON E H 
CKSWR 3; TEST FOR C IN 
3S: BIT #81709, ISWR ::LOOP_ON ERROR SWITCH SET? 
BEQ 4§ ;;BR IF NO 
MOV $LPERR, (SP) ::FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE ::CHECK FOR AN ESCAPE ADDRESS 
BEO c§ ::BR IF NONE 
MOV SESCAPE,(SP)} | }:FUDGE RETURN ADDRESS FOR ESCAPE 
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D7REIC.P11 4 © OE -OC T-7& 09:44 ERROR HANDLER ROUTINE 
pigs Sacies o2ew70 oooowe “e NDAD, as42 ACT-11 AUTO-ACCEPT” 
61 cares SNe Hs i Bk ancn ¥ NO 
185 74 900000 wi HALT YES 
618 RaSi3e oococe aT ; ;RETURN 
pi .SBTTL TYPE ROUTINE 
tls paeeTINe 10 TYPE facie Meechee MESSAGE MUST TERMINATE WITH AD. 
£195 aSclz MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
ae ists TAOUTINE Wig INGE ERT A Ny R OF NULL CHARACTERS AFT ALINE FEED. 
£197 HE CHARACT ER 19 Be USED AS THE FILLER CHARACTER. 
6196 rit: SANTA TRS NS THE NUMBER OF ER CHARACTERS REQUIRED. 
513 CONTAINS CHARACTER ‘i ILL AFTER. 
6201 
| &202 ial) Steins A TRAP INSTRUCTION 
be03 :# TYPE §,MESAOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
$255 :#0R 
: TYPE 
;# MESADR 
£508 8 
£209 105737 001157 $TYPE: TSTB $TPFLG :;1S THERE @ TERMINAL? 
| 210 l BPL 1s 338R IF YES 
il HALT !tHALT HERE IF NO TERMINAL 
bele 032519 000430 gR 3$ >: LEAVE 
621 12 Ol 18 MOV RO, -(SP) ::SAVE RO 
/ 6214 14 0 gooqne MOV  g2lSP),RO ;GET ADORESS OF ASCIZ STRING 
‘zis } 1 001230 CMPB 40soBAPTENY,SENV =; ; RUNNING it APT 
«Bel 032526 001011 BNE 625 >:NO.GO CHECK FOR APT CONSOLE 
| $217 032530 132737 000100 001231 BITB § sAPTSPOOL,SENVM ::SPOOL MESSAGE TO AP 
E18 032536 o01405 BEQ 623 ?:NO.GO CHECK FOR CONSOLE 
$2189 032540 010037 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
| §320 932544 004737 033214 ISR PC’ $aTy3 ::SPOOL MESSAGE TO APT 
| $221 032550 61S: .WORD O ::MESSAGE ADDRESS 
| bece O3e55e h3e737 000040 001231 62$: § BITB  sAPTCSUP,SENVM ;;APT C 
I BNE 60S :YES, SKIP TYPE OUT 
| §234 O32562 112046 2s MOVB = (RO)+,-(SP) ; PUSH CHARACTER TO BE TYPED | ONTO STACK 
—s«sBeeS «6032564 OO100s BNE 4g ?BR IF IT ISN'T THE TERM 
| 62286 032566 TST (SP)+ ite TERMINATOR POP IT OFF THe STACK 
| 6227 932570 012600 60S MOV (SP)+,R0 TORE RO 
bee 72 bee7ig oocace 3$ B00 #2, (SP) eos! RETURN PC 
(Be Gaeets b5Fqge COOH = eo oe DO aD 
| 6232 032606 ee? ib ooo200 CNPB sR, (SP) ;;BRANCH IF NOT <CRLF> 
| 6233 032612 O01006 BNE 
6224 032614 0067 TST (SP)+ ;;POP <CR><LF> EQUIV 
| 8235 03261 19 1 TYPE TYPE A CR AND LF 
«Ba 032622 ied 032756 ee SCHARCNT ; CLEAR CHARACTER COUNT 
P52 032626 SR + RLEAR T CHARACT ER 
6239 ~032630 004737 032712 S$: ISR PC. STYPEC ties TYE THIS CHARACTER 
| 022634 123726 001156 6S! CMPB 4s SF ELL, (SP)+ iTS IT TIME FOR FILLER CHARS. ? 
6241 032640 001350 BNE 23 !IF NO GO GET NEXT CHAR 
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C3ee42 013746 001154 
O32646 peers 00000: 

7 12 
032664 


=7 


ee 


74 
e7S2 
032754 


epeeeee 
Raeeoee 


ooo0ss 


Enns 


000001 
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YPE ROUTINE 
MOV —s- SNULL,, -( SP) ;3GET # OF FILLER CHARS. NEEDED 
5 3 BND THE el ee 
78: D&CB = «1 SP) i #DOES A NULL NEED fo BE TYPED? 
aT 388 TF NO--GO POP THE NULL OFF OF STACK 


PE sTvPEc 385 NOT COUNT'AS COUNT 
3 ta :;LOOP 
HORIZONTAL TAB PROCESSOR 


S$: MOVE a’ , (SP) $3 E TAB WITH SPACE 

3s: ISR Pc, STvPEC Pe SPACE 
BITS sa? i} BRANCH H IF NOT AT 
a ip iP OFF STACK 
i=ist ;;GET NEXT CHARACTER 

STYPEC: IST 2 TES ::WAIT UNTIL PRINTER IS READY 
Meee Gcerattey > «= EE]SPRUERarreR ArcaRREAGE RETURN? 
BNE CS tee akCH TF NO 
CLRB $CHARCNT 3 YES--CLEAR CHARACTER COUNT 
ici] TYPEX ;;EXI 

1S: CMP 2(SP) ::IS CHARACTER A LINE FEED? 
BEQ STYPEX ::BRANCH IF YES 
INC (PC)+ 3; COUNT 


8 THE CHARACTER 
SCHARCNT: .WORD O ;;CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


g8 SLFLSSSSLEHLLLELALEAESERSE RATS SALERASEASSLLASELASLLLAAEAALELFE ES 
:RTHIS ROUTINE IS USED TO CHANGE A 1&-BIT BINARY NUMBER TO A S-DIGIT 
SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
ie R IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL SE TYPED 
'SBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
*#REPLACED WITH SPACES. 
: MOV NUM, -(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
1 # TYPOS ::G0 TO THE ROUTINE 
STYPDS: 

MOV RO,-(SP) ;;PUSH RO ON STACK 

MOV Ri’ -(5P) ::PUSH Rl ON STACK 

MOY Re! -(5P) ::PUSH Re ON STACK 

MOV R3'-(SP) ::PUSH R3 ON STACK 

MOV RS|-(5P) ::PUSH RS ON STACK 

MOV #20200,-(SP)  3:SET BLANK SUITCH AND SIGN 

MOV 20(SP)'RS ::GET THE INPU R 

BPL i$ ::BR IF INPUT IS POS. 

NEG RS ss MAKE THE BINARY R POS. 

MOVE = #-, 1( SP) + MAK! ASCII R NEG. 
1S CLR RO ::ZERO THE CONSTANTS INDEX 

MOV #$DBLK R23 ::SETUP THE OUTPUT POINTER 

MOVE 3s gs, (RB) + ::SET THE FIRST CHARACTER TO A BLANK 
2s: CLR !:CLEAR THE BCD 


SES 


- 
- 
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Be 
fs 
fs 


: 


s 


$ 


PER BER EER Sab bacnunina 
FINITE LOE EGSREREVGG CURL 
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= 
SS 


033222 


R 


e+e 
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o- 
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pe 
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= 
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See 8 
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177777 


1 
1 


000001 


033450 
000001 
000100 
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E10 


PAGE 121 


s4 
YPE ROUTINE 


33GET THE CONSTANT 
;3;FORM THIS BCD DIGIT 


;;8R IF 

:; INCREASE THE BCD DIGIT By 1 

;;ADD BACK THE CONSTANT 

3 3 EECK IF BCD OIGIT=0 

Hs it Shite Lbbo ENG 0°s? 
BR IF YES 


;;G0 CHANGE TO ASCII 
;;WAS THE LSD THE FIRST NON-ZERO” 


;;POP STACK INTO R 
;;POP NT 
;3NOW LYPe i NUMBER 
:;ADJUST THE STACK 


;;RETURN TO USER 


SRERELAAAA RA LALA LAL REL ALELRE RAL LAALALELRERRARAEAE 


3310 REPORT FATAL ERROR 
3;TO TYPE A MESSAGE 


;;70 ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 
;;PUSH Rl ON STACK 
;;SHOULD TYPE A MESSAGE? 
3;IF_NOT: BR 

1 RERAT ING UNDER APT? 


MACY! (j ) O6-OCT-7&6 OS: 
CONVERT BINARY TO DECIMAL AND T 
TBL(RO),R1 
38: S07E: 
at 
# 
4§: 1,85 
BS 
*8. 
7$ 
S$: (SP) 
Pop) 1(R3) 
\ & | 
$ a’ . 
gs ee 
* 
cRO)+ 
RO, #10 
zi 
A 
S,Re 
6$ 
gs: (SP)+ 
3$ 
-1(SP),-2(R3) 
2. 
(2633783 
ae 
+ tod 
SDBLK 
2(SP),4(SP) 
(SP)+; (SP) 
SDOTEL: 
10. 
S$DBLK: .BLKW 4 
.SBTTL COMMUNICATIONS ROUTINE 
SERREERAEEEREE 
SATY1: MOVB  81,SFFLG 
SAT #1, SMFLG 
SAtYC 
SATY4: #1,SFFLG 
SATYC: 
ames 
SMFLG 
#APTENV, SENV 
SAPTSPOOL , SENVM 
33 


ss IF : 
;;SHOULD SPOOL MESSAGES? 
;3;IF NOT: BR 
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| DZRIC.P11 = OB-OCT-76 09:44 APT COMMUNICATIONS ROUTINE 
| 6354 933264 017600 900004 atest MOV O4(SP > RO ;;GET MESSAGE ron 
i \ 
AES BRR SRE mR ge SAU Bim 
001224 V RO. SMSGAD HIF if fa 
| Bel Be ee a fe ee iis B ate 
4 001224 MSGAD , RO Tee 
cs a) ee mM Some foe 
bes sieve 37 cea 001210 Nov 84, SMSGTYPE Pur MS TO TAKE 
| 1 33 MOV a4(SP).4$ :;PUT MSG ADOR IN JSR L 
HHS EN Ge BE B Bey ck ea 
1 1?r, MOV 1 -(SP)  ;;PUSH 1 ON STACK 
pore 032500 ISR PC, STYPE ::CALL TYPE MACRO 
| 5 : : -WORD 0 
4 105737 033452 ids TSTB © SFFLG ss SHOULD REPORT FATAL ERROR? 
| 6373 033370 00141 BEQ 2g S31F NOT: 
«BR OBE Bp com as apa ager er 
| §378 033400 001210 118 TST SMSGTYPE HPINiseeo LAST MESSAGE? 
Bsibe a 2 apy 1S <5, SFATAL melee om 
«BBS By8 Bp5552 | Bodsa6 yn ee) i TURN ADDR 
«6380 «O33422 005237 001210 INC SMSGTYPE abt To TAKE ERROR 
BE Bee iy Boe OEE ee Fah 
l 1 €LRE FL CLEAR L 
| 6383 36 033450 LRB MFLG si AR MES L 
6384 1 MOV (SP)+,R1 POP STACK INTO Al 
 «- 638s 1 (SP)+! +3 Pet INT 
ei aa ; TS pc URN nc 
| j Hane aye 8 iin orf 
p83 033452 30 FLG: BYTE 0 : FATAL Frac 
ee 558389 APTSIZE= 
000001 APTENV=001 
_ 835 900100 Be TSPOOL = 100 
ee "SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
| £297 : + ESLER AERASRELE RELA LARS SA ASA RAAELALRAARELLARARSAAARELAEFAALAEGA 
£396 I ETHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
£399 *#OCTAL (ASCII) NUMBER AND TYPE IT. 
BY ° in TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
6402 MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
| §403 TYPO :CALL FOR T 
.BYTE ON ::N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
"BYTE M 3iM=1 OR 0 


1=TYPE LEADING ZEROS 
DE SUPBRESS LEADING ZEROS 


$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; 
:# 
’ 
’ 
: 
‘ 
' 
, 
, 


,# 
.& 
.% 
3% 
3% 
.# 
3% 


CTELET 
SEGRE 
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++ 6-6 <b + p+ b-09 


eases seedse 


oO~r 
Ce ok oe 


aoe 
RARER 


nn 


BP 
3 
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MACYL1 27( 1006) 


BINARY TO OCTAL’ (ASCII) 


- 
° 

3@ 
, 


1$: 
2s: 


6$: 


3¢ 


;#$TYPOS OR STYPOC 
;®CALL: 


NUM, -( SP) 


NUM, - (SP) 


aw 
— 4 


oe 


RIDER PLRPOGS. 
a 


3$ 


RA 


G 
06-0C7-76 
AND 
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;:NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


:# 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 

;;CALL FOR TYPEOUT 

5 PICKUP THE MODE 

eet Hit Ee 

a hii RE Han ABpReSS 

73SET RO FI TCH 
brSET foe Stxces bictts 

3;SET THE ITERATION COUNT 

;;SAVE R3 

3 RS 

;;GET THE NUMBER OF DIGITS TO TYPE 
;;SUBTRACT IT FOR MAX. ALLOWED 
36 FOR USE 

;;GET THE ZERO FILL SWITCH 

+3 UT NUMBER 


R TYPING 
unt 5 as DIGIT 
;;BR IF MORE TO DO 
:-BR DO 


; ;RESTOR 
;;RESTORE RY 
;;RESTORE R 


30 
005037 
«BB BEE tee 
Be es ie 
| «BHSE 033746 5555 
| 487 Osa7ee 018777 
492 032760 000207 
—«B49S 
| 6500 
6501 
«502 
6503 
£504 
£505 
e506 
£507 117746 
6508 033766 42716 
 €503 033772 021627 
| 6510 001007 
6511 104401 
6512 O34 237 
6613 034010 
en ae Bie 
! 
«516 034022 001004 
6517 034924 022737 
| Belg 034032 O0Is00 
| §520 o34034 
£521 034034 022737 


ee Se ee 





145160 
177600 


035110 
033712 


031034 
000007 


000176 


000001 


033704 
o35708 
000062 
145164 


001140 


033702 


4 gs hae? (pecte Tce, ae PAGE 124 SEG 0124 


8s: " : eS GR free ROUTINE 


SOCNT: .BYTE ss OC TAL cre COUN 


be: fone tt AEMGER. OF suii TO TYPE 


M i» 
.SBTTL TTY INPUT ROUTINE 
5 RERERERES ESSER RSE ERRLL ASSL RAS ERLE LARA ESSERE EASES EASA EE SELES 


. L 

TKCNT: . i OF IN QUEUE 

TKGIN: “OR 5 TNE f POINTER , 

STKQOLT: . iouTPur POINTER 

STKQSRT: .BLKB 1 Y KEYBOARD QUEUE 

STKQGEND=. 

E 

;#TK INITIALIZE ROUTINE 

!#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

; #CALL: 

+ SR PC, STKINT 

: RETURN 

$TKINT: CLR STKCNT :;CLEAR COUNT OF ITEMS IN QUEUE 

V ASTKOSRT,STKQIN ;;MOVE THE STARTING ADORESS OF THE 

MOV STKQIN, STKQOLUT ::QUEUE INTO THE INPUT 8 OUTPUT POINTERS. 
MOV #STKSRYV, JRTKVEC i INITIALIZE THE KEYBOARD VECTOR 
MOV #200, aUTKVEC+2 EVEL 4 
TST asTKB CLEAR DONE FLAG 
MOV $100, 2STKS :ENABLE TTY KEYBOARD INTERRUPT 
RTS PC ::RETURN TO CALLER 

;*TK SERVICE 


ROUT INE 
; #THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
5aey ae —“— FROM THE INPUT BUFFER AND PUTTING 
+ 
;#1F THE CHARACTER IS A “CONTROL-C™ (tC) STKINT IS CALLED AND 
;#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 


insev: MOVB OSTKB, -(SP) ss EI THE CHARACTER 
B THE JUNK 


IC #tCl ::STRIP 
CMP (SP), #3 $315 IT A CONTROL C? 
BNE BRANCH IF NO 
TYPE SCNTLC : TYPE A CONTROL-C (tC) 
JSR PC. STKINT :: INIT THE KEYBOARD 
1ST (SP)+ >:CLEAN UP STACK 
JMP STOP 5 CONTROL C RESTART 

18: CMP (SP), #7 3315 IT A CONTROL G? 
BNE 2s :BR 
CMP #SWREG, SWR 31S SOF T-SHR SELECTED? 
BEG &$ ::GO0 TO SWR CHANGE 


CMP #1,$TKCNT 3321S THE QUEUE FULL? 





UNIBUS RKE DRIVE DIAGNOSTIC PART 3 
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2 001 
HH ARGH TRE! uz 
Be 
bSce 163? oo0023 
6528 Eoee aeiga 145056 
a GREE TEE sco 
¢ 
6531 B3ap74 100375 
6532 034076 117746 145044 
fess reat g738 Arobes 
Bese BayitS Bes 
F536 os4114 012777 900100 14S022 
Fee, Bauisd poses? 0337 
533 034130 021627 000140 
Fea; Sauise Sees? o00175 
6542 O34142e 02002 
6543 034144 O42716 
6544 O34150 112677 177530 
6545 034154 005237 033 
65 O34160 3727 033704 033711 
| 654 166 001003 
6548 034170 012737 033710 033704 
6549 024176 O00002 
6550 
6551 
B552 
6553 
6554 
| g&Ss 
| §556 034 022737 000176 001140 
| 557 O34206 001124 
6558 034219 106777 144730 
| B559 034214 100121 
6560 O34216 117746 144724 
6561 O3s4222 O42716 177600 
| 6562 034226 021627 
6563 O34e32 001300 
woke 
BES 
| 6566 
£567 
«BE EB 
| E569 
6570 034234 123727 001134 O00001 
| §571 O34242 001674 
6572 O34244 005726 
6573 O34246 004737 033712 
6574 O34eS2 005077 144666 
| p78 034256 112737 000001 001135 
6577 O34264 104401 035122 
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TTY INPUT ROUTINE 


3$: C 


318: 


4$: 


SS: RTI 


06-OCT-76 09:54 PAGE 125 
:;BRANCH IF 

, SBELL S3RING THE TTY BELL 
isP)+ + LEAN BA ARACTER SEF OF STACK 
{SP), #23 3315 17 A CONTROL-S? 
seks + PT SASLE TTY KEYBOARD INTERRUPTS 
(SP + ;;CLEAN CHAR OFF STAC 
aSTKS ‘WAIT FOR A CHAR 
31$ 3 LOOP UNTIL 115 THERE 
oer. SP) FF eetT ASCII 
* rn) a 
(SP) +, #21 HES] tose 
#100, 3STKS | REENLE TTY KEYBOARD INTERRUPTS 
$TKCNT 3 }COUNT THIS CHARACTER 
(SP) , #140 :IS IT UPPER CASE? 

), #175 He en A SPECIAL CHAR? 
top} + QSTKOIN $SMAKE IT vere 
TKQIN ::UPDATE THE POINTER 
STKQIN, #STKQEND +60 F THEE 
#STKQSRT, STKQIN HRESeT THE POINTER 

* RETURN 


© LEEAAELE RAE RAS EA LAA L ALEK ALLA AL AAA AAA RELA LALA ALLL RELARESRELAAEL 


: ESF TUARE SWITCH CH REGISTER CHA 


;*ROUTINE IS ENTE 


CHANGE ROUTINE. 


TRAP HANDLER, AND WILL 
ITCH REGISTER TRAP 


:#SERVICE THE TEST FOR C ple 
*CALL WHEN OPERATING IN TTY INTERRUPT 
bei cuR: CMP #SWREG, SWR THE SOFT-SWR SELECTED 

BNE 5$ EXIT IF NOT 

TSTB = ASTKS :1S A CHAR WAITING? 

BPL : tile NOT, EXIT 

MOVB § a$TKB,-(SP) ry 

BIC #40177, (SP) ::MAKE IT 7-BIT ASCII 

CMP (SP), #? si IT A CONTROL- 

BNE PUT IT ti THE TTY QUEUE 


ti AND ext 


jSemennamsneeeeeeeeeeere patel pan EINER Ta TTY INTERPT @ 


i ONTRO! 


;#ROUTINE OR FROM 


IS PRRSED e's Me Babe pont FROM EIT 


TTY deg SERVICE 


SWITCH REGIS STE. Rae 4 AP oe RESULT _OF A 


-*CONTROL-G BEING TYEEG ONO T THE SOFTWARE SWITCH REGIST TER BEING SEL ECTED. 
b$: CMPB  SAUTOB, b1 s;ARE WE Ruliel FN AUTO MODE? 

BEQ $ ;;BRANCH IF YES 

TST (SP)+ : CLEAR CONTROL ~G OFF STACK 

JSR PC, STKINT t TELUSH Y_ INPUT QUEUE 

CLR gtk t OTSRBLE ry "KEYBOARD INTERRUPTS 

MOVE #1, $INTAG ::SET INTERRUPT MODE INDICATOR 

TYPE  ,SCNTLG ;;ECHO THE CONTROL-G (1G) 


NN  eeeeeeeeeeeEEEEeEeEeEeeeeeeeeeEeEeEeEeeeeeeeeeee—ee——EE 
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PERERREREES 
WOnNMUN CTO 


o 
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038127 
000176 
035140 
144626 


144622 
177600 


000002 
177776 


001204 


000001 
144560 


144506 


000001 
144464 
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TTY INPUT ROUTINE 
SGTSWR: TYPE SMSWR 
MOV SWREG, -(SP) 
TYPOC 
TYPE  ,SMNEW 
19$: CLR -(SP) 
CLR - (5p) 
7$: TSTS  a$TKS 
SPL z 
MOVE  a$TKB,-(SP) 
BIC west (SP) 
CMP ), #3 
BNE 
TYPE SCNTLC 
ADD 
CMPB ss SINTAG, #1 
BNE 
MOV #100, 2$TKS 
8S: IMP STOP 
9S: CMP (SP), #25 
BNE 10 
TYPE $CNTLU 
20$: ADD ke. SP 
BR 19% 
10$: CMP (SP), #15 
BNE 16 
TST 4(SP) 
BEQ 11 
MOV 2(SP), aSWR 
11$: ADD #6, SP 
148: TYPE SCRLF 
CMPB s-«s SINTAG, #1 
BNE 5 
MOV #100, a$TKS 
15$: RTI 
16$: JSR PC, $TYPEC 
CMP (SP), #60 
BLT 188 
CMP (SP), #67 
BGT l 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: ING 2(SP) 
BIS -2(SP), (SP) 
BR 7§ 
18$: TYPE SQUES 
BR 20S 


73; TYPE CURRENT pe a 
; $3366 SWREG FOR TYPEOUT 
Troe nen Asc I(ALL DIGITS) 
; ;PROMPT FOR_NEW SWR 
; 3 sGLeAn COUNTER 
THE NEW SWR 


fICHAR THERE? 
: IF NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


Hee ITA PONTROL-C” 
NOT 
7YES EoHo CONTROL -C (#0) 
*CLEAN UP STAC 
js REENABL ein KEYBOARD INTERRUPTS? 


; BRANCH NO 
ALLOW TTY KEYBOARD INTERRUPTS 
;;CONTROL-C RESTART 


i338 IT “ear 


:3YES ECHO CONTROL-U (tu) 
GNORE PREVIOUS INPUT 
iets S TRY IT AGAIN 


:315 17 A <CR>? 
‘BRANCH IF NO 
: YES, IS IT THE FIRST CHAR? 
;;BRANCH I 
: SAVE NEL 
 CleAR UP STA 
;3ECHO <CR> AND < 
RE-ENABLE TTY Keb INTERRUPTS? 
tT BRANCH IF 
;;RE-ENABLE TTY KBD INTERRUPTS 


IF YES 
RIP-OFF ASCII 
HIS THE FIRST CHAR 
IF YES 


33N0, ek b PRESENT 


“ 
+ 


ii tiTYPE ? ><LF? 
; i SIMULATE CONTROL-U 





ppt 42 


= 


034724 


a ee ee ee ee 


o 
ro 
i} 
* 


14 


Bro:- oon 
Saat 


-8 
yee 


= 
= 
oS 


cocode 


000004 
033711 
033706 


035064 


TTY INPUT 
.DSABL LSB 
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y REREE REE REAEAERERERASRE LE EE SEAERAERSAERERERELELELEALELEL ELSES 
:aTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


i ROCHR 33GET_A CHARACTER FROM THE QUEUE 
ie RETURN HERE :CHARACTER IS ON THE STACK 
ie : UTTH BART TY BIT STRIPPED OFF 
SROCHR: MOV (SP), -(SP) :3PU pQoun THE PC AND 

CR sa, ear ADY FOR A CHARACTER 

LE 435} Hai READY. oh Src 

MOV #64$,-(SP) PUT NEW Pe oh on “STRCK 
te RTI ::POP NEW P 
1$: qs! ;;WAIT ON A CHARACTER 


DEC an CREMENT THE COUNTER 
MOVE STKOOUT, 4(SP) 35 GE 0 TER 


NC Hu KQOQU ; ; UP eat 16 aa R 
a4 TKQOUT, BSTKGEND ; ;DID A" THE END? 
MOV #STKQSRT, STKQOUT’ ; s RE T THE POINTER 


2s: RTI 
; eanensadanneenneneesennennessibaeesennereneensennecsneaensnees 
:RTHIS ROUTINE WILL INPUT A STRING FROM THE T 


SEQ 0127 


+ 
iH ROLIN ss INPUT A STRING FROM THE TTY 
1 RETURN HERE SS OF FIRST CHARACT R. oth LL BE. ON THE STACK 
# ba NATOR WILL BE A BYT 
SROLIN: MOV R3, -( SP) 
CLR (SP) He THe 8 RUBOUT KEY 
1$: MOV eSTT 
2s: CMP SSTTYINtos, R3 s }BUFFER F POEL? 
os 84S -:BR I She. 
CHR ::G0 REA CHARACTER FROM THE TTY 
MOVB  (SP)+,(R3) ::GET CHARACT 
10$ CMPB s«#177, (R3) 3318 IT A RUBSUT 
BNE c$ :BR IF NO 
TST (SP) iis THIS THE FIRST RUBOUT? 
BNE 6$ -BR IF NO 
MOVB = #’\,, 98 t TYPE A BACK SLASH 
TYPE ag 
MOV b-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC R3 ::BACKUP BY ONE 
CMP R3, #STTYIN !:STACK EMPTY? 
BLO 4g 55BR IF YES 
nove (R3), 98 ::SETUP_TO TYPEOUT THE DELETED CHAR. 
TYP! 9 +16 YP 
BR bg ‘GO READ ANOTHER CHAR. 


; :;RUBOUT KEY SET? 
;BR IF NO 


Ss: TST (SP) 
BEQ 7$ 
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Ss 06-OCT-76 
6690 O34732 112737 000134 O35064 MOVE 3s «#"\, 98 +; TYPE A BACK SLASH 
6691 O34740 104401 035064 TYPE 
744 1 LR ise) Hapa T KEY 
=a poooes 7$: chee #25, (R3) + A CTRL u? 
6695 754 1 035115 TYPE CNTLU $ 
bese Fy Soa 13 a fone 
£6 122713 900022 23 CMPBs«B2z, (RB) SHARACTER R, “+R”? 
bb38 peices i BNE 3g + BRANCH IF NO 
£700 i 53 1205 Fupe SeRLF Rates 5° are 
£701 BRI S5e 10440 Boeee TYPE  ‘$TTYIN 2: TYPE THE INPUT STRING 
FE TAS cosy ws: oe ues lea ENER Cre 
£704 10 12 ok 1g CLEAR THE BUFFER AND LOOP 
205 2 : 1 reed 38: nove (R3), 9S !:ECHO THE CHARACTER 
E55 eat cee abate CMPB sR S, (R3)+ $s CHECK FOR RETURN 
£208 061 BNE 3300P_IF_NOT RETURN 
67 1 ages CL -1(R3) CLEAR RETURN (THE 15) 
£710 104401 601206 TYPE LF ii TYPE. A LINE F 
671 b35049 2 TST {SP )+ 33 CLEAN RUBOUT KEY FROM THE STACK 
671 peers MOV (SP }+,R3 RESTORE R 
6713 O35044 OL1646 MOV ~(5P) t }AOJUST THE STACK AND PUT ADDRESS OF THE 
6714 D1 bbb p00004 900002 MOV S?sp3 2(SP) :: FIRST ASCII CHARACTER ON IT 
| 671 4 Q12766 035066 000004 MOV —-aSTTYIN, 4¢SP) 
| §71 000592 RTI : ;RETURN 
671 4 9s: .BYTE 9 ;; STORAGE FOR ASCII CHAR. TO TYPE 
6718 065 000 "BYTE : TERMINATOR 
6719 035066 900022 $TTYIN: .BLKB 22 ; |RESERVE 22 BYTES FOR TTY INPUT 
6720 035110 O41536 o0s015 000 §$CNTLC: :ASCIZ 7fC/<15><12> TROL “C" 
6721 035115 136 006525 000012 S$CNTLU: :ASCIZ /tU/<15><1e> $3 CONTROL “U" 
| 6722 035122 043536 9050i5 000 §$CNTLG: :ASCIZ /#G67<15><1e> ,}SCONTROL ¢ 
| 6§723 035127 015 OS1412 oOS1l27 SMSWR: .ASCIZ <15><12>/SWR = 
| -Gb5e B5e153 GB80d0 Seesie oeo1e7 SMNEM: .ASCIZ / NEW 
| 6726 035146 20075 000 
| 672? 035152 LEVEN 
bree "SBTTL READ AN OCTAL NUMBER FROM THE TTY 
6730 : pee ROUTING ITT READ AN OCTAL (AecIi) NUMBER FROM THE TTY ANG 
| brs 4TH scan OUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
6733 xTHE INP T_GHARACTE ERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
| 6734 Hot AL DIGITS If 8 AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 
| §735 **FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
b73e ¢ THEN | BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE "RETURN. 
| 6738 te RDOCT :READ AN OCTAL NUMBER 
| 6739 : RETURN HERE tow ORDER BITS ARE ON TOP OF THE STACK 
| e740 1 :tHIGH ORDER BITS ARE IN SHIOCT 
| 6742 035152 O11e46 SRDOCT: MOV (SP), -(SP) ; PROVIDE SPACE FOR THE 
| 6743 O35154 O16666 oDD004 ocoDDD2 MOV 4(SP} 2(SP) js INPUT NUMBER 
| 6744 O35162 O10046 MOV RO, -(5P) H RO ON STACK 
«74S C3514 O10146 MOV R1;-(SP) SE teH R1 ON STACK 
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CO0060 
lee716 000067 


&762 00630 
Te ee Be orm 
fe fee gen 
pce 000756 


£768 000012 
6769 035256 010237 035310 
770 2602 


77 335e68 OL 
Baesee Bt 
£773 035¢70 ga0oce 
£775 B3e594 10501 
irs FES 
6778 035302 109901 001204 
| 6780 035310 600000 
678 
67 
| §7B3 
| §784 
6785 
| 6786 
| §787 
 - 6788 
6789 
| Boar 
«6782 «035312 104413 
£793 pze214 016601 
Prac Gaessy OLSroR Cesal 
e5ge Saes50 Bisras Geeoe 
6797 035334 012100 
6738 es 12101 
gaa paesue Siboue 
6801 O35344 010002 


M10 
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READ AN OCTAL NUMBER FROM THE TTY : 
MOV R2,-(SP) ;PUSH R2 ON STAC 
18: ROLIN READ AN ASCIZ i 
MOV (SP)+,R0 :GET ADDRESS OF 1ST CHARACTER 
MOV RO, S$ ::AND SAVE IT 
cLR a CLEAR DATA WORD 
2s: nove (RO)+, -(SP) TE eo Ce CHARACTER 
ac #70, (SP) : tage CHARACTER 
BGT 4$ tts AN at DIGIT 
CMPB sow’, (SP) 
BLT 4$ 
ASL Ri 33#2 
ROL OR 
ASL Rl 33#8 
ROL R2 
BIC #1C7, (SP) ;;STRIP THE ASCII JUNK 
BOD (SP)+, Rd $ ADD IN THIS DIGIT 
3s TST (SP)+ HOLEN TERMINATOR FROM STACK 
MOV R1,12(SP) ::SAVE THE RESULT 
MOV Re. $HIOCT 
MOV (SP)+,Re :;POP STACK INTO R2 
MOV (SP)+'RI i :BOE TACK INTO Ri 
Hoy (SP)+'RO :POP STACK INTO RO 
4§: TS (SP)+ sFRETUR PARTIAL FROM STACK 
CLRB ss CRO) s5SET A TERMINATOR 
TYPE :: TYPE UP THRU THE BAD CHAR. 
cs: .WORD 0 
TYPE SQUES {pes "CR" & “LF” 
BR 1§ :TRY AGAIN 
SHIOCT: .WORD 0 HIGH ORDER BITS GO HERE 


-SBTTL OOUBLE LENGTH BINARY TO bitte ASCII CONVERT ROUTINE 


[yoseeesoucnqunscndossoneestustecgunsaveuectecsce LELLLLKRARAEESE 
:ATHIS ROUTINE WILL CONVERT A 3@-BIT UNSIGNED BINARY NUMBER TO AN 
*UNSIGNED OCTAL ASCIZ NUMBER. 


ie L 
i# MOV #PNTR,-(SP) ; ;POINTER 10 Lou WORD OF BINARY NUMBER 
1 JSR PC, a8$DB20 $3CALL THE ROUT 
1 RETURN ‘THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;;SAVE ALL REGISTERS 

MOV 2(SP),R1 ::PICKUP THE POINTER TO LOW WORD 

MOV uSOCTUL+13. ,RE ; POINTER TO DATA TABLE 

MOV #12. ,R 0 ELEVEN CHARACTERS 

MOV tC? = + ASK 

MOV (R1)+,RO 3;LOWER WORD 

MOV (R1)+-R1 :HI 

CLR R2 ITER MINATOR 
1$: MOVB Re, -( RS) ::PUT CHARACTER IN DATA TABLE 


MOV RO, Re 3;GET THIS DIGIT 





| 
| 
| 
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ee 
is 
S 


RRR Bie pbk wione bioet 
fw TU o-- & +0 <0 0 0 
Ow Now! £ tufur-O 


pt ae 
09: 


c00060 


PART 3 


035530 


até EENee inane fo. ee ers renveRT ROUTINE 


BE 53 
es 


BEG 
INC Re 
MOV RS,2(SP) 
SREG 
RT P 
2s: as 5 
23: ROR a. 
ROR RO 
ROR Rl 
ROR RO 
ROR 54 
BIC R3,R2 
p #0, R2 
8R 1$ 
SOCTVL: -BLKB 14, 


+ COUNT THIS CHARACTER 
3568 4 "0 re he rae ae 


S ae PR He He * hibeme 
RESTORE ALL REGIST 
ft Re THE PSK a THE LAST DIGIT 
POSIT 1. ae Y NUMBER FOR 
33 Ne NE OCTAL DIGIT 


;MASK OUT ALL JUNK 
: MAKE THIS CHAR. ASCII 
ii of TIT rath THe, pata TABLE - 


-SBTTL OOUBLE LENGTH BINARY TO AicTRAL Estti CONVERT ROUTINE 


; FERRER RAE REE RRAERAEAERERESAEREARESAALAELERSSA AES EELALELELERES 
{ETHIS ROUTINE WIL CONVERT & 32-BIT BINARY NUMBER TO AN UNSIGNED 
seDECIMAL ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


CALL 
t+ MOV #PNTR, -(SP) 
Ls ISR PC, as$DB2D 
;* RETURN 
$0820: SAVREG 
BY Esk 
MOV melts 


MOV 

MOV iO bus RY 

MOV #STNPWR+2, RS 
1$ CLR R3 


2$: (R4),Ri 
SUB (RS) ,Re 
3$ 
INC R3 
2s 
3$: ADD (R4)+,R1 
,, & 


Re 
(RS) (RS)+ 


9 
R3. (RO)+ 
DEC (PC) 
4§: WORD 
BNE 's 


;;POINTER TO LOW WORD OF SINARY NUMBER 


;;THE FIRST ADDRESS OF ASCIZ 
3318 ON THE STACK 


33 SAVE REGISTERS 
;PICKUP THE ge: 
SiGeT ADDRESS OF “BEV i an 
;;PUT ADDRESS OF ASCI M. NG Of STACK 
;;PICKUP THE BINARY NUMB 


;;SET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


i ;CLEAR PARTIAL 
;; SUBTRACT TEN POWER 


+i85 IF TEN POWER TO LARGE 
;ADD_ 1 TO PARTIAL 


LOOP 
LOO one SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
3 ANGE PARTIAL TO ASCII 


>? 
+3 


;;BR IF NO 


/ 


——— ee eee 





~ ~ as \_ 
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SES& Rae sso¥ 105020 

S8S9 O2SS26 108414 

6860 025540 o7 

S3€. 4 

S8Ce 44 

6863 035546 

S866 SSs4 

b&€" 

Be 

ceri Saeeee 

6873 S355 

S874 935574 

es 

£880 paeels 

6851 0356! 

5554 

68ss 

5586 

£887 

bee 

b&E9 

6830 

cess 

O35626 016637 900002 O3SéSt 

6894 035634 tt ' O3S656 
bese beeen Sezrie Sos008 
ceS6 44 16 

6697 035650 O01 900002 
bE96 baeres 00Se 

£900 

6901 

£90e 

£903 

6904 

£905 

£306 

6907 

ESE 

Pav 

910 C2562 O10046 

691. 035664 016600 000004 
pais 035670 105710 

$12 035672 001403 


mn ee eee 


Pp. 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

¢ e. (RO)+ 7; TERMINATOR 

6 t:RESTORE REGISTERS 

STNPWR: 1a5090 ée ie a 

160400 531. 0£08 

eve 

ii2 31.0£07 

pee :3;1.0E0& 

1oaeso 31. 0E05 

ro 331.0€04 

oon >:1.0€03 

’ :31.0€02 

ie 331.0E01 

b :;1.0&00 
SDECVL: .BLKB 12. - RESERVE STORAGE FOR ASCIZ STRING 
“SETTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
5 FSRASESSSLSSSSLLLALESSSLELALALLAS SEL LSERELELAALLESAEFSSESELELES 
sBTHIS oRORTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMSER TO AN 
: MINS I DECIMAL ASCIZ NUMBER. 
:# MOV NUMBER,-(SP) | ;;PUT BINARY NUMBER ON THE STACK 
:# ISR PC, a8$$82D :: | 
:# RETURN ::ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$SB20: MOV 2(SP).1$ ;;SAVE_ BINARY NUMBER 

MOV 813, -[SP) ::SET POINTER 

ISR PC, ds$D82D ::CALL DOUBLE LENGTH CONVERT 

ADD 85" (SP) ::ONLY ALLOW FIVE CHARACTERS 

MOV (SP)+,2¢SP) s PICKUP POINTER 

RTS ae ; ;RETURN 


1S: . WORD 
-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


ff RERSSERSESSESALLALEAESAELSLELALAALAAAAALLESAALALELALELE LLL TTATE 
*STHIS ROUTINE Is USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;#LEADING NUMBERS. 


t+ MOV SNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
:# ISR PC, asSSUPRS 
SSUPRS: MOV RO,-(SP) ;;SAVE RO 
MOV 4(SP) RO ::PICKUP THE POINTER 
18: TSTB 3s (RO) : : TERMINATEOR? 
BEG es ;;BR IF YES 
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‘ 
g 
a -_ 
i : 
: 2 2 
: w "ss Ha, 
3 + 2 oe ae a 
3 oe 22S Ee 
‘ae 3 re 2 
Va eee 2 &. tire fw! Be 
ae 3 S + xx SH > ie aan =o" Bo” 5 Yor 
Bebe GF Setn8 Sos, Sah ta Gus %3 gee 
“e & : Gini Sty Saaes woe Sw =O EEE 
yf En." See = 555 ene a ies SE xxx 
“@ ore, FOS ar yiyya Hy Hye BaggtR Mw Bee 
ya EaSeeneeg Fe ae delet ince 
tp vaaaatige $y estates og Ginko! Tenge 
ah oo 6e 8e em ee om ee ee ee 4 S. - seem ewes swome eH eR eRe ER ee = emememe er 
* we ac 
35 = $5. 5 
O-% 3 ‘2 “ 
Fe pA a r : gost ~~~ & 8; 8; 0.0.2 
oo | Sle Eeebs ci BS SF TS BBREE 
tim ° —_ - BB TO tes ‘ee . - A cepien len Lan ienian 
SB sed oMed = Bee: ce sia bern by gers tipo s mht 
SB SaNeE"EeA Sehy Libs SSdeRAveaNvedsssoushaewRNSSooT 
: #34 ; 
gt “ ” a eee echt ad 2 “ a a wn 


035712 
000012 
000014 


if : n 
SB LGU a apace 
* aaa SS Saenemeareeneaneraaer 


CEB aatatataat ROSA REA a dada dak RRM RRR Rae 


-< iy iii le ivi irivilinivinimlvirrmwoenveweeweiliwrerrrmiwewrvererwrwerunopmrwrrereunrererertorresty ots y) 


me ee | a ewe eee ee eo | ee ee - + ee C- -- 
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D2REIC 


PREBREE IS 


th 
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COCK KOM MO MM Mmrr mr mira waran a a 
SES RRE eas 


BSERUBRER 


SAARI 
wo NM £ uf 


Seis 


eS | 


Paice 


036064 
036070 
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ss SSSELESLSLSSSSSSSELSLSSSLLESSSHAREESLAASLSLELAAFFLASESLSESHE SESS 


;* G 
;®UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


woe 


AMAALPL POD 
BRBBRPBRB2LZB 


ma?) 


NNWNWninw 


—4—4—4 4-4-4 


RRRRLVBISE 
Be 


POYH VD 


FF 


+4444 


° 
se 
ee 
se 


+ + LELSSEAEESEAELS SELLA LEEAAAAALELA LALA LELALARLLLALELLLLAALELERELEE 


THE TRAP TABLE 


LOWER BYTE OF THE “TRAP" INSTRUCTION 
FOR THE STARTING ADDRESS 
USING THE ADDRESS OBTAINED IT WILL 


; SAVE _RO 


VE DIAGNOSTIC PART 3 MACY LI 
OE-O57-7& 09:44 SAVE RESTORE RO-RS ROUTINES 

.SETTL SAVE AND RESTORE RO-RS ROUTINES 

i BSEVE RO-RS 

3% 

3 #TOP---( 416) 

:# ¢2---(418) 

gS Seoooke 

;# +6-- 

3# +B---R2 

3 #+10---Re 

3#+le---R 

9 #4] Gone 

SSAVREG: 
D10046 MOV RO,-(SP) 
Bibi46 MOV Ri; -(5P) 
10246 MOV Re: -(SP) 
b1 3346 MOV R3,-(5P) 
1 MOV RY’ -(5P) 
O10s46 MOV RS|-(5P) 
SLEEYE g0002e MOV 22tsp),- 
16646 00022 MOV 221 5P)'- 
Clee4e 000022 MOV 22(5P),- 
Oig64s o00022 MOV 22(5P)'- 
o00d0e2 RTI 

s#RESTORE RO-RS 

peCALL: ecREG 

SRESREG 
O12666 o000z2 (SP)+, 22 
012666 90002 (SP) +) 22 
012666 Bppose MOV (5P)+' 22 
O1ebbE oood22 MOV (SP)+' 32 
12605 MOV (5P)+°R5 
012604 MOV (5P)+'R4 
012603 MOV (5P)+/R3 
Ole602 MOV (5P)+'Re 
012601 MOV (SP)+'RI 
012600 MOV (SP)+'RO 
oodode RTI 

.SBTTL TRAP DECODER 

 &THIS ROUTINE WILL PICKUP THE 

:#AND USE IT TO INDEX THR 

:#0F THE DESIRED ROUTINE. THEN 

:#G0 TO THAT ROUTINE. 
010046 STRAP: MOV RO, -(SP) 
016600 900002 MOV 2(6P) RO 
005740 TST -(RO) 


+:GET TRAP ADDRESS 
::BACKUP BY 2 


SES 0133 


2 


. 


peg 


DRIVE pieeme ibe 
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MACY11 27( 1006) 
TRAP DECODER 
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Oo 
F2NIF 


SSS. 


Decree 
Be 


o 
oO 2£ru 


- 






Ell 
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a aoe: 
STRPAD (RO) ,RC 
RO 


(SP), -(SP) 
4cSP} 2(SP) 


-SETTL TRAP TABLE 


RUCTION. 


tCALLETYeDs 


;;CALL=GTSWR 


;;GET RIGHT BYTE OF TRAP 


i Thope Ho ERE, JNOEXING 


TO ROUTINE 


;:THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
fe Ree 


ote corals THE STARTING ADDRESSES OF THE ROUTINES CALLED 


TRAP+1 (104401) 
TRAP+2(1 
TRAP+3(1 


eR 


TRAP +6 ( 104406) 


TRAP +7 ( 104407) 
TRAP+10( 104410 
TRAP+11 





TTY TYPEOUT ROUTINE 

Tree Seta Runeer (No Leneine dees) 
‘ A ate sie T CALL} 
GET SOFT-SWR SETTING 

TEST _FOR CHANGE IN SOFT-SWR 

TTY TYPEIN CHARACTER ROUTINE 


TTY ping STRING ROUTINE 
READ AN OC oF nee R FROM TTY 


RESTORE RO-RS 
INTERNAL LOOP ON ERROR 
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a Vee a ie he A Sree tes 
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SES 2136 


<CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF> 
(CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/ 


(CR><LF>/B. CORRECT PORT SELECTED/ 
(CR><LF>/C. WRITE LOCK DISABLED/ 


ASCII 
-ASCII 
ASCII 
ASCII 


ah 


ade 


ROE 
ean 

Zan — 
aoe 


ae 
aes 
— eat : 


Haat aS 
44 648 64456 310 


Rest eta 

it 041101 042514 
a8 puoi ceonss 
eS22 042101 020131 
O20l22 047117 


aes 


SAAB MMO Mae Be Fa 


cele tele letetete te Pete re bere Pere Pere rere rere] 
A ek ee ee 





eer | 


rr 
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/RKMR2 RKMR3Z RKCSL RKCS2 RKDA WORD EXPECTED/ 
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Qe 
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w a. 
g & e Fd 
-— 
q g £e 2 #8 
a # 8» 4 es 
: 
~ ~ © tab 
o i % S a 
x 4 S ini 
i oa . 
x f “a ad fee a 
z e3 3 .6OC = ¥ a 
pas | zx 4 ~ lay = ad 
~ ® g je 
z 2 . r B 
o tas Qa a & ta) ¥ o 
# tlw a “M = 
| ~ - t — 
e - > o 3 e i! 
5 e 5 S & 
a. a. a. -_— = on 
| J a & Qa a Qe ray oO 
en | cs Be a  F e i 
& @ & &% te te te x 
vw ~ w v ~ ~ ~ ~ ~ ~ 
™ - Nm NS ™ ™N ™N ™N ™N Ns 
SOUS S 68 rt rs eR mt rt 
2 c &¢@ @ & a & @ & 


iss fities 


“yn Seren tes ean seen ees 
falta Gece Gea eas ee 


DHE3: 


DHE7 
DHEB: 
DHES 


DHEY 
DHES: 
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oa — 


Be sla Wlcacaa as es tea eas 
een iii Seamer aie re aera aut — at eect 
BAAR SARA RaA AANA Se dude ere 


ReKRELRRRT IAN TLL ATRL IRAE AS BOP 
aoe sheranseeaSOCSSESs RNS SRS S NUS CU USCS NNN ES 
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aioe 


r 


Fi 


ehividsa 


f 
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z 


gS 


iiiees. 
Sana? 
eae 


apareRceaaesud 


ania 
fur 


Bane 
cece? 
aes 
? 
-O 


22 
™N 


Reomeure 
State isteitisie iris 
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004461 


Bee 


HgSRE 
SawVo 


~_ 
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Sifu 
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DATA HEADERS 


-ASCIZ /ACTUAL ACTUAL ACTUAL ACTUAL ACTUAL ACTUAL ACTUALY 


-ASCIZ /A0 80 Al Bl Re Be 83’ 


-ASCIZ /RKCS1 RKCS2 RKASOF RKER RKDS RKDC/ 


-ASCIZ /MSG A 8 B IN RKMR2 & RKMR3 RESP ARE INVALID/ 


-ASCIZ /ON SECTORS 10, 12, 14, 16, 18 OR 20 CYL 410 TRACK 2/ 


-SBTTL ERROR OUTPUT DATA 


EVEN 

STESTN, SERRPC, HMR2, HMR3, HER, HDS, HCS1,HCS2, HASOF 
STESTN, SERRPC, HMR, HMR3,HCS1,HCS2, STMP3,WD1,WDe 
STESTN, SERRPC,HMR2,HMR3,HOC,FRCYL, TOCYL, CALDIF 


STESTN, SERRPC ,HMRe,HMR3, HER, HDS, HDA,HCS1,HCS2 


UNIBUS RKE DRIVE pines TiC PART 3 
06-OCT-76 09:44 


et Be a 


OZREIC.P11 


733 Deoeoe 


060614 


Boe nurse 
£eO 


= OO oe 
NOU ecw 
Vo 


BED eo eo EDEDEDED 


us 


RRERRRR KKK 


? 
BRR KERR Kee 
RBS BREST SRER 


et 


bbise2 


MAC 
ERR 
DTé: 
DT?: 
O78: 
DTS: 
DT10: 


OT13: 


DT14: 


OTIS: 


.SBTTL 
DF 1: 


DF3: 


DF4: 
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OUTPUT DATA 


STESTN, TRAPPC 
$TESTN, SERRPC,HMR2,HMR3, HDA, WOCNT, HDWD, TEMP 


STESTN, SERRPC ,HMRe HMR, HDC, TOCYL,FRCYL, CALOIF 
STESTN, SERRPC ,HMR2,HMR3, HOC, TOCYL, RHTAB 


STESTN, SERRPC ,HMRe,HMRS,HCS1,HCS2, HOC, HDA 


STESTN, SERRPC,£.AG,E.B80,E.A1,£.81,H.AO,H.80,H.Al,H.8! 


HCS1,HCS2,HASOF , HER, HDS, HDC 
STESTN, SERRPC,E.A0,E.80,£.A1,€.81,€.A2,€.82 


H.AQ,H.80,H.Al,H.B1,H.A2,H.B2 
HCS1,HCS2, HASOF , HER, HDS, HOC 


STESTN, SERRPC,E.AC,E.80,E.A1,€.81,£.A2,€.82,£.83 
H.AO,H.BO,H.AL,H.B1,H.A2,H.B2,H.83 
HCS1,HCS2,HASOF , HER, HOS, HD. 

ERROR DATA FORMATS 


2 
.BYTE 2,0 
-BYTE 7,0 


3 
.BYTE 0,0 
DH 


-BYTE 2,0 
-BYTE 7,0 


3 
.BYTE 0,0 
DH1 








ee 


UNIBUS RKE DRIVE DIAGNOSTI 
DZREIC.P1l 06-OCT-76 09 


ges4 poiiae 
88S5 1136 
88S& 061140 
8857 
8858 061142 
8859 061144 
8860 
886 polis 
0611 
061152 
8864 061154 
ee HUB 
886 
apts 
1164 
061166 
8871 061170 
8872 06117e 
8873 1174 
ie 
1 
8876 061 
8877 061204 
SM cies 
8880 061210 
888 peisis 
88 1214 
8883 061216 
6884 O0ble20 
888S Obleee 
8886 O6lec4 
8887 
8888 O6le2e6 
8889 061230 
8890 O6le3e 
8891 061234 
8892 
8893 
8894 061236 
Se Hs 
Bec? be isug 
8898 Oble%46 
8899 061250 
8300 
S02 061252 
- 
Gs Sie 
8904 061256 
8905 061260 
8906 Obi2be 
8907 pet 4 
8908 Oblebs 
8909 061270 


RR 
= +£ 
rs 


8 


af Seeaiae 


g 
= Be 
B88S 888 88 8888 88888 888 8 BB 


B 
Bie 


R 
este 


007 
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ERROR DATA FORMATS 


BYTE 2,0 

.BYTE 7,0 

l 

-BYTE 2,0 
OFé: 3 

DH1 

BYTE 2,0 

BYTE 6,0 
DF?: 2 

-SYTE 2,0 

.BYTE 6,0 
DOF 10: 

ppyte 0,0 

DHe2 

-BYTE 7,0 
DFle: 4 

.BYTE 0,0 

DH73 

.BYTE 0,9 

DH1 

.BYTE 2,0 

DHe 

-BYTE 7,0 
DF14¥: 2 

-BYTE 2,0 

DHYO 

.BYTE 6,0 
OF1S: 3 

-BYTE 0,0 

DH1 

DH7 

-BYTE 7,0 
OF17: 4 

-BYTE 0,0 

DH4Y4 

-BYTE 0,9 

DH1 

-BYTE 2,0 

DHe 

-BYTE 7,0 


SEG 0167 


ee ng 


a i i a 
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DZR6IC.P11 O6-OCT-76 09:4 ERROR DATA FORMATS 
8910 Ob1272 o000003 OF20: 3 
Sai2 beisee suis | ” aaa 
ssi) isos BE 2,0 
e316 Bet 304 ds 000 “BYTE 5,0 
eats 139% OF2l1: 7 
318 131 000 .BYTE 0,0 
891 1312 os4012 DHI 
8920 061314 O02 000 BYTE 2,0 
892 1316 060115 DHE 

1320 ss 000 “BYTE 0,0 
892 1322 o6025 H71 
8954 061324 004 000 “BYTE 4,0 
8925 061326 060176 DH70 
8926 061330 000 000 -BYTE 0,0 
8927 061332 060257 X71 
8928 061334 04 000 -BYTE 4,0 
8929 061336 060304 DH72 
8930 061340 006 coo “BYTE 6,0 
§93 
2932 061342 000007 OF22: 7 
8933 061344 00 000 .BYTE 0,0 
8934 061345 oOS4Ole2 DH! 
8935 061350 O02 00 “BYTE 2,0 
8936 061352 060115 DHE 
8937 061354 000 000 -BYTE 9,0 
8938 061356 060257 DH71 
8939 061360 O06 00 -BYTE 6,0 
8940 061362 060176 0X70 
894i 061364 000 p00 “BYTE 0,0 
8945 061366 060257 bH71 
8943 961370 006 000 ‘BYTE 6,0 
8944 061372 060304 DH72 
8945 061374 006 000 ‘BYTE 6,0 
Egae 061376 000007 oF23: 7 
8948 061400 N00 p00 .BYTE 0,0 
8948 061492 os4Ole OHI 
8950 061404 O02 900 “BYTE 2,0 
8951 O61406 O60115 DHES 
8952 961410 000 000 “BYTE 0,0 
8953 O614i2 060257 DH71 
8954 061414 007 000 “BYTE 7,0 
8955 O61416 060176 BH70 
g 061420 000 00 “BYTE 0,0 
8957 061422 060257 DH? 1 
e958 061424 007 000 “BYTE 7,0 
8959 081426 060304 bH72 
8960 061430 000 BYTE 
8961 ; gusuanincsdanechocesusacaususuusunusessuensucenuccnessesuucness 
o9ce *SaTTL TYPE ERROR ROUT INE 
8963 :#ENTRY JSR PC, TYP ERR 
8964 ; #RETURN ATs Pt 


8965 ;# 












C.Pl 06-OCT-76 09:44 TYPE ERROR ROUTINE 

seTHTS S ROUTINE USES ySeS Ms oo Al avTe (sirens) TO ge renrire WHICH 
om 33 10 ORTED. IT THEN USES THE “ERROR TABLE” (SERRTS) 

HENRY 15. 0 Der INE ‘nat INFORMATION 2 TO REPORTED CONCERNING 


sesetnsessonneasenesses SARAAALALAALLFLEAALELAELAALELERALAL FRED 


Beag te 


061432 104413 HERR 
Be pels pe777 020000 117476 Br #SW13, aSWR eee ERROR TYPEOUTS? 
Ba55 Be Laas 1360 oori14 MOVE Sterne, ro RTER ERROR. AuMBE Rune 

Beivey Sces55 + BEE RATAN RO Re toe FoR it TABLE 
8977 061456 006300 ASL RO 
8978 061460 006300 BSL RC 

3/486 BEES oossec 1$: a TEERRTE. RO ;FORM ADDRESS OF ERROR ENTRY 


z mt DRIVE DIAGNOSTIC PART 3 MACY11 eos) 06-OCT-76 09:54 PAGE 169 SEG 0189 
| 


LL LS. 


| 
| MIELE Bae Derye Sreanos 
| ii 


+ 
ad 


hte! 
a 


BEE 


ervey 
e+e 
tu 
8 
e. 
? 


Saga ie : 


RMRRM RRR KKK KKK eR re rrr eer eR rir er eee ire 


oe 
B+ 0 b= & + B= B= B= b+ = = = Os B= 0 he Oh 8 b= 0 &* Bs he = 2 B88 Be = 8 oe Be Bt «ee he Oe Oe Kw He Ow eh Oe 


ttt 


Nii 
PA 


git 


: 


hs 
aa 


PBal are 
i 
5 


+ $010 003431 
, >: So D440 
. a 
| Oi 610 O01 
| $014 6ie 0081 
| it 614 001 
1 616 10440) 
201 622 tect 
Se eS 
«EO «061E32 106710 
; Sel 624 001 
S0ce £36 
3023 64e 000754 
oe iS 
650 704 
oS Bie te 
«Be Bie Hee 
3030 6&4 352797 
$031 672 pete 
3032 674 0237 
$033 702 O01 
9034 704 
| $035 710 i 
$036 714 000207 


(oe eer mee ee eee 


TIC PART 3 
& Os: bed 


061504 
001205 


06 1S22 
001208 


001208 


001205 
061736 


010000 il72e46 
001103 o00024 


Bu 


ess: 


{60}, 28 
» SCRLF 


0 
(RO)+,4$ 
5 

, SCRLF 


l 
 Becaee 


14§ 
, SPACE 
i$ 


sSW12, dSWR 
ess 

SERFLG, #20. 
aSTACK, SP 
ENDRV 

PC 


06-OCT-76 09:54 PAGE 170 
INE 


:SEantu IF SUERE ISN'T ONE 
ari BERIAGE RET AN LINE FEED 
ie irda” 
ier 


fa te THERE ISN’T ONE 


;GET 8 STORE OF DATA WORDS 


s PAST WORD 

: DATA FOR THIS HEADES 
sNO_ - SKIP DATA PRINT 

TR WORD ON STS&CK 


w 
—4 
Lad 


Y A OH IN THIS REQUEST” 
ive —_— H BYPASS INDENT 


i VES-TYPE SPACES 
iE T DH POINTER 


‘Ow BOINTER GOES HERE 
TYPE A DT? 


;YES-BRANCH 
; INCREMENT DF POINTER 
;SEE IF END OF OF BLOCK 


: INDENT? 

;NO-BRANCH 

:YES-TYPE SPACES 

: LOOP 

+SEE IF EXIT AFTER 20 ERRORS 
ELSE SEE IF HAVE 20 ERRORS 


“ELSE RESTORE STACK 
:AND BYPASS ORIVE 
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7=7— 09:44 Tee eboe Rotting 





i 
i 
2 


€ 


0613736 O2004C 000 SPACE2: .ASCIZ’ ;& SPACES 
; OOT-11 -- vO0SA 


; DEC-11-U0DPR-A-LA 
; COPYRIGHT 


See alee 


} , 
1%9, 1970, 1 
: DIGITAL EQUIPMENT CORPORATION 
: NESSACHUSE TTS 01754 
061722 LEVEN : 
a4? 062002 aa 12. +60 = jensen 
= ; 
iE BS f oP 2 1 ae 
S656 Re : “2 : CONVENTIONS 
000003 R3 : “3 
Se s “4 
| BES es : ¥ 
$ = “6 
900007: Bc = “? 
177776 : st = 177776 ;STATUS REGISTER 
| SaRaas Ive . a4 ‘PRI Rity nAGK.= STA TAT TER 
. = 
S5583¢ 33a = 34° reat T MASK "Sratus Rect #8 
| 900003 TRT = 000003 TRE T NeTRUCTI 
000006 RTT = 000006 :RTT INSTRUCTION 
; RSIS USUALLY CONSIDERED SAFE, THE ¢ CURRENT ADDRESS WORD 
RBEARTIONS LE A tn RANDOMLY cor e° L SERIE. TF shou ser 
. ; BE ENcEPT “oi ee an Mb ine OT RES BorTER (CAB) 
177562 9.80 z i77see 3 ;R DATA BUFFER 
| ees The 1 iT t bate BUFFER 
177564 O:TCSR = 177564 :TC 


IND TIALS ODT 

0.007 FOR A_NORMAL ENTRY 

USE 0.00T+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS 
USE 0.00T+4 TO RE-ENTER (I.E. - FAKE A BREAKPOINT) 


rn — 


scant an aman ee runnin nna aa 


‘opt: BR 0.STRT :NORMAL ENTRY 


| 02002 000413 
ee wea Ry Bie si 
i 1 061762 O.ENTR: MOV 7,0.usT =EN SER -- SAVE STATUS 
062014 613737 OO001E 177776 MOV 0. tVEC+2, ST 6 UP LOCAL STATUS 
02022 010737 061760 MOV PC, 0.UPC :FAKE THE PC 
O62526 000137 063160 IMP 0.8Ki 
| 062032 012706 Ob174e2 A STRT: MOV 80.URO, SP SET UP STAC 
| 062026 010637 061756 MOV SP.0.USP :FAKE THE 


p STACK 


cay E 
062042 900414 3k 0.RST1 :CLEAR BREAKPOINT TABLES 





% 


Land 


b 





o 
a 
o 


te 


CRORES 


FRESSASSON LESION PRON ats trea ctakat BE ARE 
ioRRiorictoetoe 


WSERERNE ESS 28 


010000 010000000010... ww 
see me ae ee Be ae Ba Be a Bae hae bt Be hn he ne ae Be Bo Be Be Be Fe Fe be Be Be be he eh he be be be be Bb Fe Oe Be 


s+ 
con 





063734 


062474 


061774 











MACYLI 27(1008) 06-OCT-76 09:54 PAGE 172 
TYPE ERROR ROUTINE 
O. RST: SR 9,0.5¥R sais ; SAVE REGISTE cane 
" ve ee 7 es abr Teg Eee me 
i: 
RY : Boer ION 
MOVE sR ST :STORE IN STATUS 
RSTI: iP (pte 
MOV @RTI,O.RTIT sS5L 70 TO RTI IF 11/20 OR /OS 
0.45: CLRE O.P Lt 
MOV #0.51M, 0. TVEC#E : STATUS “HRD TO TRT VECTOR + 2 
HOV 80. BRK; 0. TVEC iF pc 10 TR T vecToR 
0. BREAKPOINT TABLES 
: SPECIAL NAME HANDLER 
: DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 
b REGT: iy 0,66 SPECIAL NAME GET ONE MORE CHARACTER 
O.RSP: CMPB RO, (RS) hes THe ¢ T hooress CHARACTER? 
BEQ 0. SP :JuMe IF 
CMP 80.TL+0.LG,R4 :IS THE fee cu DONE? 
HI 0. :BRANCH IF NOT 
1¢ 8177770,R0 : MASK OCTAL 
MOV RO,R4 
0.SP1: ASL RY 
ADS #0. URO,R4 RATE AQORESS 
INC cz i GENE FOUND FLAG 
0, SCAN NEXT CHARACTER 
0.SP: 38 80. TL-7,R4 360 FIN CONSTANT 
te HANDLER - OPEN INDEXED ON THE PC 
b.oRPC: JSR PC,0.TCLS 
MOV RS'Re ; CURRENT ADDRESS IN Re 
age ake, Re ay IT TO CARRY 
BCs ERR it (860 nse 
TST (Re)+ : RES OF RCREMENT BY TWO 
MOV R2.RS !UPDATE CAD 
IMP 0. bP2 :GO FINISH UP 
: B HANDLER - SET AND REMOVE BREAKPOINTS 
6.BKPT: TST R2 : TYPED 
BEQ 0. RALL : "REROVE BR BEE AKPOINT 
ASR RY !CHECK IF ODD 
BCS 0. ERR :JUMP IF ODD 
ASL RY : RESTORE ONE BIT 
MOV R4,0.ADR1 -SET A BREAKPOINT 
BR 





MACYL1 27( 1006) 
TYPE ERROR ROUTINE 


NIBUS $y DRIVE D 


Ole737 O640SO 061774 
000406 


0.00.00 
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80. TRTC,0.AORL ;CLEAR BREAKPOINT 
0.0C0 


COMMAND DECODER - O0T11 


REGISTERS RO-R4 MAY BE USE 
REGISTER RS WILL SE E ONE TDERED SAFE 


o- ee ee ee ae ae 
nm 
a 


BS 


" 
2 


BRIE 
om 
“4-4 


Oo 
wv 
-— 


3 


wo 
Fa 


a 
wn 


3 


O.00 
>= & + bs b= b= b= <0 BF —* BO = = B+ Bs B= 0 Os B+ he he Oe 8 he be Fhe he Fh Be Hh hs OO he 8h Oh * 0 he he he Oe Fee Be 
O- LAX 


000000000000 0000... ow 


VOM= 
Pees | 
oun 


SHO IRR LI GSO IRR LOWES Ba Total Zand No GE SG Be NE hoe « 


it COO DOOOO0O0O 
. . - . . a . . . . . 


© 


oo 


0,75 CLOSE EVERYTHING 

4 Ro ; TYPED 

LOLETYE : 
Seas TA Ng CONVERTED OCTAL 
2 SM i) Se Pour g FE 


> Lae Genrer 


os oOnum 
~ RYRee 


RO Ww 
. : COMPARE aah NOT OC TAL 
8 »RO :CONVER 
RY 
i : 7 
a Be 
~ a s PACK THREE em 
0. SCAN : one at AGAIN 
1 sCLEAR INDEX 
oe 26 eames ;00 THE CODES MATCH? 
a FY 
8 ; SET INDEX Ay NEXT SEARCH 
R1,80.CLGT :15 ns SEARCH DONE? 
0. ERR : OOPS! 
: nat TEST 
*MULTIPL Y SY TWO 
BS LGDRCRI) :60 TO BROPER ROUTINE 


OPEN WORD 
AGE RETURN CLOSE 


G 
(LF> MODIFY arose OPEN. NEXT 
RELATED, INDEX 


SEARCH WORD 
SEaRCH EFFECTIVE ADDRESS 
BREAKPOINTS 


PROCEED 
.70.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 


VOMEO- Ff 


: PROCESS / - OPEN WORD 


foioiuiUTD 
PON 





Re ;GET VALUE IF R2 IS NON-ZERO 








a eee. ee ee 1 - 


| 


UNIBUS RKE DRIVE DIAGNOSTIC PART 3 MACY FO © hendiit: 09:54 PAGE 174 SES 9174 


DIREIE.P11 «© OG -OCT-7E 09:44 TYPE 

$205 001410 BEG 9. WROA : SKIP STHERAISE : 
i aoe 0.WROI RS’ , Move be BTS + <Bbey 

Pil 3. ERRE acs 0. ERR 5 JUMP F : aODRESS ; 
st 11 V SRS, RO ‘Cee CONTENTS OF 

? 263824 ISR +pegnO¥ ‘8 I : T uT 3CAd 
ate 0000: 0.WROA: Bic BicRe :CLEAR CL 5 
00076 is 0.WRDL 360 BACK TO MAIN-LINE 


; PROCESS CARRIAGE RETURN 


4h crer: ne aia HELSSE EVERY iy RY THING 


ee fe ay 
atk 
a 


S221 : «4 
3208 ; PROCESS <LF>, OPEN NEXT WORD 
737 063734 b.0P1: JSR Pc 0. TCLS ;CLOSE PRESENT CELL 
a5¢ ae 063760 0.0P2 ter (ns RLF 3 GENERA _ a ae 
2555 Bicets hy 2é &S iNOMBER 1 TO TYPE 
$23¢ 063524 JSR 5,5. Caov TYPE out ADDRESS 
$229 012700 900057 MOV #'7,RO iTYPE A 
$230 004537 O&36b& ISR S,0:F TYP 
321 000744 gR 0: WRDL :G0 PROCESS IT 
a : PROCESS t, OPEN PREVIOUS WORD 
8235 062520 004737 063734 ’.BACK: JSR PC.0. TCLS 
336 peczes 00s745 TST - (RS) ;GENERATE NEW ADDRESS 
3227 000762 0.0P2 :G0 DO THE REST 
$339 : PROCESS 0, COMPUTE OFFSET 
255 30 b.OFST: ASR RS ;GET LOW ORDER BIT 
$24 8595 BCS 0. ERR2 ‘ERROR IF CLOSE 
$243 062534 O06 ASL RS RE TORE WORD 
0625. le700 o00040 MOV 8’ RO ‘TYPE ONE BLANK 
45 06254 ae 0&3666 ISR 5. 0!FTYP : AS A SEPARATOR 
3 062546 160504 SUE Re RY : COMPUTE 
aug Besees peesoy bEC RY ; ig BIT OFFSET 
9249 062554 010400 MOV RY, RO :TYPE A 
ei Res Eee Te eeeo © 
$251 062524 JSR 5,6. Cav :NUMBER IN RO - WORD MODE 
a6 bseee parson ASR Re, RO VIDE BY TW 
$254 Beers iosste BCS 0.0F1 ao FF O KB 
$255 062524 JSR 5,0.CADV MBER ER IN Bp - BYTE MODE 
sect 062576 000137 O62276 0.0F1: IMP 0:0CD1 
g2t¢ : SEARCHES - SMSK HAS THE anes 
$255 : §MSK+2 HAS THE FWA 
$260 : $MSK+4 HAS THE LWA 


ane wig at =T Boat Y 


ta 


™“ 
~ 


torurute 


BSNS RES loll 


cicero 


CT-76 09:44 


cee 


Ow 
—-O 
ot 
ae 


BeReeeap 
Bee ektes 


oO 

- 
7 

iE 
a 
o 


061770 
061766 


061772 


000057 


177400 


MACYLi 27( 1006) 


0.WOS3: 


0.WOS4: 
O.EFFI: 


: PROCESS G - GO 


06-OCT-76 09:54 PAGE 175 
TYPE ERROR ROUTINE 


Se: 
3 wD 
in + 


ae, 
on r 


Rohe 
av" 


BowO- oO. 


Dwe#ow 
Ore: Ww 
™“s 


;SET EFFECTIVE SEARCH 


See F eet. FOUND 
e Saic 
COMPLEMENT IT 
PIS THE SEARCH ALL DONE? 
: + I crect 
IBRANCH IF EFFECTIVE SEARCH 
EXCLUSIVE OR 


31 
GET CONTENTS 
TYPE CONTENTS 


;INCREMENT TO NEXT CELL AND 
RETURN 


3 (XD 4x 
NO Sx4e ak? 


RIPE out EXTRANEOUS BITS 
SEX TEND SIGN 


a TIP Y BY TWO 
ADD TWO 


;ADD PC 
:1S THE RESULT A PROPER REL. BRANCH? 





RK Ty AGNOSTIC PART 3 preyt (1 “OCT-7& 09:54 PAGE 176 SEG 0176 
BRGT.Pil  Oe-SeT=7e COsHs WBE ERROR ROTI hans 


T-76 
$317 O&2764 105037 064007 0.60: CLRB O.P :DISALLOW PROCEED 
ae ieerre TBaei? ¢ Beare EUR Nogestamc te: 
006304 . RY - RESTORE WORD 
Peers Gib 177776 vB Ra: Sth , ne ie H ERIGRITY 
962010 004537 063456 2 wit ISR +9. + :R 19 TELE 
Seses stk 0617 aS Bye 80.TBT,0.UST ; ct LPs 
1 i? P42 0 MOV 30 adr! O.UIN 






$320 
aise 
ease l TRTC, 90. AOR ‘eee ac M H uct ion, 
2352 Bessae Baz ho 0.602: Hoy DaghiC 80 Bae 
$323 063044 e601 MOV ($P)+, Ru ; RO 
| ' . 
pe BE 3050 iEees MOV CBE} 3°BS i 
$333 QeS0e9 O1SE0e ey OCeP pe’ Re . 
| $334 Gi e2e MOV (5P)+'SP : AND SP 
a2 ei Hee aire my Ris} tag pens 
$337 063070 Od00006 O.RTIT: RIT nlaethe: CHANGED TO RTI FOR 11/20 AND /OS 
2338 : PROCESS P - OceeD 
ani ; ONLY ALLOWED BF TER A BREAKPOINT 
| exe 72 105737 064007 b.proc: TSTB 0.P CHECK LEGALITY OF PROCEED 
| as besos toeese 064007 ED i ee rc ak SROCEED FLAG 
| SB45 Desi 5? TST R2 Ss ROUNT SEP FTE IED? 
a3 § i Bio4 1 MOV 836 cr PUT AWAY 
| $348 pestis iSe39 BB45G8 177776 O.PRI: MOVE sO STN.ST i HIGH PRISRI TY 
| S3c¢ pes tse V 33 pS eaa8 177776 0.C1 ao 0.RStT HS iia razon 
ase) bei 5s taEzs7 SOC ace on ae a. :SET T-BIT FLAG 
| 9352 063140 062737 000020 o617¢2 BIS 80.TBT,0.UST  ;SET Tait. 
| 353 063146 000735 BR 0.602 
| @3&5  BREAKPOI HANDLER 
e258 : ; TRT aeAREOTN CAUSES 0.BRK TO BE ENTERED, WHICH SAVES 
| 93 : YARIOUS ODDS AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL, 
3358 : BND GIVES CONTROL TO THE COMMAND DECODER 
$360 063150 912637 061760 8. BRK: Nov (SP )+,0.UPC pai IS 7 UPON ENTRY 
eee BeStEG BAgSS> BESSEe 0.BK1: JSR 65 gor’ AVE. VaROUS REGISTERS 
$363 063164 105737 O64006 TSTB sé: T ‘HECK FOR T-BIT SET 
| $364 963170 O01 BNE 0: TBIT : JUMP 
S365 1 062000 176574 MOV O:UIN,30.ADR1 REMOVE BREAKPOINTS 
3366 aed 105737 061764 TSTB «OO. PRI !CHECK IF PRIORITY 
a3ee Be ssoe 3705 061762 nove 9. ECS RS ‘etek UP USER UST IF SC F SO 
9269 1 ia SR 6.8k3° AND DON’ PER PUTE — THE PRIORITY 
8270 063214 113705 Ob61764 0.8K2: MOVB 0.PRI,RS ! OTHERWISE PICK M3 ACTUAL PRIORITY 
| $371 063220 000257 cee CLEAR CARRY 
$372 Ob32e2 106005 RORB sR :SHIFT LOW ORDER BITS 
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. ce ie = 4 U 
DZR6IC.P11  O&-OCT-7E 09:44 TYPE ERROR ROUTINE 
$373 063224 106005 RORB =soRS ; INTO 
O&3226 106005 oe RS : so” we 
23° Nake PRESS 177776 0. 8K3: RE. st :PUT THe Staton AWAY WHERE IT BELONGS 
9377 3 1 061760 0.UPC,RS :GET PC, IT POINTS TO THE TRT 
78 TST - (RS) :SUBTRACT TWO 
s5c¢ Benes Dei SS MMe ORES OC BOR TR OPARE WTA LIST. 
re Bese th EE) R48 Sop EE 
063424 JSR 5,0.SVTT : SAVE TYPE STATUS 
$363 SR 5'0. CRLF 
2383 ] 491 MOV #).80, 84 ;ERROR, NOTHING FOUND 
1 3 MOV #0.8041,R3 
$386 76 0836 JSR 5.0. TYPE ;OUTPUT “BE” FOR BAD ENTRY 
| $3387 063302 O01 MOV RS.RO 
| $265 665304 O42737 000020 061762 BIC #0'TBT,0.UST | ;CLEAR OUT ANY POSSIBLE FAKE T-BIT 
3383 l2 2R 9.83 ; AND CONTINUE 
| 3 14 061776 0.82: DEC 0: 
a33 pisses 1 061776 By oe 8.cT Peer oun TO J 
$3 Spssee 105237 poones INCB «OP "ALLOW PROCEED 
9394 : 3424 ISR §,0.SVTT :SAVE TELETYPE STATUS, R4 IS SAFE 
| $595 O1 99 102 MOV #°B,RO 
| 9396 063 JSR S,0.FTYP ;TYPE “8* 
| $397 063350 013700 061774 MOV 0:ADR1, RO :GET ADDRESS OF BREAK 
| s238 364 0.83: JSR 5-0. CADY :TYPE ADDRESS 
Se ssec CLR RS :CLEAR CAD 
| 3400 063362 000137 ob2272 9.DCD :G0 TO DECODER 
aie : SAVE REGISTERS RO-R& IN INTERNAL STACK 
| 9404 063366 012637 O64004 8.SvR: MOV (SP)+,0.XXX :PICK REGISTER FROM STACK AND SAVE 
aus pb237 p18 1756 MOV SP,0.USP :SAVE USER STACK ADDRESS 
76 Ol 1756 MOV #0: USP, SP :SET TO INTERNAL STACK 
| 407 O63402 O10S4E MOV RS, -(SP) : SAV 
| 3408 3404 O10546 MOV RY; -(SP) : REGISTERS 
34 10346 MOV R3,-(5P) : 
| $410 O&3410 O10246 MOV Re’ -(5P) : THRU 
aut at sea 064004 HOV Ooo (SP PUT sBveD REGISTER ON STACK 
g415 BES420 005746 TST = = (SP) ; 
| e113 062422 000200 RTS 
a4i8 ; SAVE TELETYPE STATUS 
j 
a418 113727 177560 64010 O.SvTT: MO O.RCSR,O.CSR1  ;SAVE R C/SR 
9418 063432 113737 177564 064011 ve 0:T65R'0.CSRe ;SAVE T C/SR 
$420 105037 177560 CLRB =O. RCSR :CLEAR ENABLE AND MAINTENANCE 
«+8421 O62444 105037 77564 CLRB = O.. TCSR : BITS IN BOTH C/SR 
| S422 O634s0 604537 063760 JSR 5°0.CRLF TYPE <CR,LF> 
| ses 063454 os RTS RS 
gies : RESTORE TELETYPE STATUS 
| 427 OE34S— 004537 063760 b.RSTT: JSR S,0.CRLF -<CR, LF) BEFORE RESTORING 
S428 O63462 105737 177564 TSTB 43=s-s«O TC SRR ;WAIT READY ON PRINTER 
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fin 
at 
ae 
m 
Bra 
$ 
a 


063504 
= hes 
063522 


PPP LLL 
BOIRRE Se 


Asai ESSAAS 
4 
& 


A 
R 
i 


FREER 
wr 
oN 


177560 


Bewdit 


084047 
000060 


177770 


064042 
177776 


064047 
063¢52 


177560 


77562 
Og see 
177600 


000040 
009073 


O63EEE 


i77eES 


ais3 an 35525 oouooo 177860 BIT «#4000, 0.RCSR ¥ FLAG ON RERDER 
Eb Bes fs BR ee OF PPE 


0.RSE1: nie $8 peae i, ae REGISTERS 


TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
WORD IS IN 
b.capv: mov RB, - (SP) ;SAVE_R2 nuh 
MOV #0; BUF +6, R4 :BUFFER START ADDRESS 
MOV #°0,-(SP3 ;CONSTANT ASCII O 
O.SPC: MOV Re 
BIC $177770,Re OCTAL CHARACTER 
ADD asp Re nl To BScII 
MOVE =- Re, -(R4) 
ASR RO SHIFT Ie Ese 
ASR RO : RIGHT 
ASR RO : THREE WHOLE PLACES 
CMP R4, #0. BUF+1 ; DONE? 
BHI 0. SPC NO 
BIC 8177776,R0 :GET LAST BIT 
ADD (SP)+,R0 s CONVERT TO ASCII 
MOVB  RO,-(R4) SAND PUT IT AWA 
MOV #0. BUF+E,R3 LWA 
ISR 5 9, TYPE : TYPE WHOLE STRING OF CHARACTERS 
MOV ($P}+, :RESTORE Re 
RTS 
' GENERAL CHARACTER INPUT ROUTINE 
; CHARACTER INPUT GOES TO RO 
A.cET: TSTB 0. RCSR sWAIT FOR 
BPL : INPUT FROM KEYBOARD 
MOVB 0: og ‘GET A CHARACTER 
ISR ROB Re *ECHO CHARACTE 
BIC 3157600, RO :STRIP OFF PARITY FROM CHARACTER 
REQ 0.GET : IGNORE NULLS 
CMPB ssw 4#0, RO ; CHECK FOR SBACES 
BEO 0, cer NULLS 
CMPB CHECK FOR SEMI-COLON 
BEQ g.teF tIGNORE THEM IF FOUND 
: GENERAL CHARACTER OUTPUT ROUTINE 
: ADDRESS OF FIRST BYTE IN R4, 
; ADDRESS OF LAST BYTE IN R3, * ORB) (RY) 
4. 


TYPE: CMP R3,R4 
BLO 0. TYP! 
MOVB = (R4) +, RO : ¢ 
JSR S,0.FTYP : TYPE ONE CHARACTER 
BR 0! TYPE :LOOP UNTIL DONE 


Oe FOR eee TON 
N DONE 





a nn re ee 


PELL PLL LLL 
SBBIRRLGOLS 


si 


Be macuhen 


a 


AR RRARARR 
0 NON £lufteH-O 


8 
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TYPE ERROR ROUTINE 
: TYPE ONLY ONE CHARACTER (CONTAINED IN RO) : 
B.etye: TSTB 0.TCSR K STATU 
5 iteys UAL Re READY 
Move 0,0. TD 
cies RO’ ae4s ite ore ne 18 Noe a sai 
0. tYPi NO 
MO gays -(SP) ‘YES, INIT THE COUNT 
O.TYP2: TST .TcSR 
BPL 0. TyP2 
CLAB 6=-:«O. TB ;GENERATE NULL FILLER 
DECB 42S 
BCT 0. TYP2 
TST (SP )+ :POP STACK 
O.TYPL: RTS RS 


eoee 


A. TCLS: ASR 
BCS 
#2 
BEQ 
MOV 
0.CLS1: RTS 
0.T¢: TST 
IMP 
: O.CRLF - TYPE 
: O.CRLS - TYPE 
b.CRLF: MOV 
O.CRLS: MOV 
O:CRS: MOV 
ISR 
RTS 
b.xxx: . WO 
0.T: BYTE 
0:P: BYTE 
0.CSR1: .BYTE 
O.CSR2: :BYTE 
‘ EVEN 
0.80: [WORD 
6.cR:  .BYTE 
.BYT 
“BYT 
6.LGCH: .BYTE 
BYTE 


CLOSE WORD OR BYTE AND EXIT 
; POR ENTERING, Re HAS NUMERIC FLAG, R4¥ HAS CONTENTS 


RS 
0.TC 


R 
0.CLS1 
RY, aRS 


Cc 
-(SP) 
0.ERR 


<CR,LF> 
<CR,LF>* 


$0, C801 RS 
0.CRS 
#0.CR+2,R3 
40.08, Re 
RS 


;GET LOW ORDER SIT 
;JUMP IF ALREADY CLOSED 


;IF NO NUMBER WAS TYPED THERE iS 
:NO CHANGE TO THE OPEN CELL 
;STORE WORD 


;POP EXTRA CELL FROM STACK 
AND SCREAM BLOODY MURDER 


;LWA <CR,LF> 

a (CR, LF # 

: TYPE SOMETHING 

s TEMPORARY, STORAGE 

; PROCEED FLAG = 0 IF PROCEED NOT ALLOWED 
l iF PROCEED ALLOWED 

ISAVE CELL - R “c/s 

:SAVE CELL - T C/SR 


<CR> 
<LF> 
S 


/ 
CARRIAGE RETURN 


a) 


oO 
2 
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TYPE ERROR ROUTINE 


O.CLGT = 
b.%1:  .BYTE 
8 


0.LG6 : 
8. SuF: 


“BYTE 
"EVEN 


b.trtc: TRT 


Ole :  <LF> 
‘e a 
*¢ Se 
. ; 0 
eit 
: 8 
-0.LGCH ; TABLE LENGTH 
*s 300 1 
*P 3NOT 2 
*M if 3 
0 ; THE ~ 
0 ; ORDER 5 
*B ; HERE $ 
.70.T 
6 36 CHAR. BUFFER WITH 
4 
; ; TRAILING BLANK 


; TRACE TRAP PROTOTYPE 


THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 


6. URO: 


ONOOOOOOOOO" 


0 


uv OO 


Ore 


N 
ONT 


» O00 


0.0DT-40 
;USER RO 


‘LOW LIMIT 
HIGH LIMIT 


T Ma AD ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT, 


a 
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DZR6IC.P11 © OG-OCT-76 09:44 CROSS REFERENCE TABLE -- USER SYMBOLS 
ABASE = 177440 1489 §6= «1530s S48 
ACDW1 = 000000 i489 0s: 1532 
acDWe = 000000 1489 = «1533 
0 s 11958 

en ee HEB 
Aboud = 489 1s 
ADDW! = 000000 1489 = 1535 
ADDWIO= 900000 1489 1544 
ADDWil= 0000) 1489s 1545 
ADDW1 000 1489 0s 1546 
ADDW1 48g 1547 
ADDW!4= O00 1489 0s 548 
ADDWIS= 000000 1489s 549 
aooue = 000000 i489 0s: 1536 

= 000090 i499 15 
ROWS = 146g 15 

s 1489 =: 1539 
ADDWE = 1489 = «1540 
ADDW? = 14890 i541 
ADDWE = i489 0s 1542 
ADDWS = 000009 14890-1543 
ADEVCT= 14890-1495 
ADEVM = 1489 = s«153] 
aw = 14893 1500 
NVM = 1489 03s 1501 

AFATAL= 000000 1489 =: 1492 
AMADR1= 000000 1489 = 1517 
AMADRe= 000000 4eg «1521 
AMADR3= 000000 14890 1504 
AMADR4Y= 000000 14890: 1587 | 
AMAMS1= 000000 14890-1511 
AMAMS2= 000000 i489) s«1519 | 
AMAMS3= 000000 i4gg «1522 
AMAMS4= 000000 14890 1525 
AMSGAD= 000000 1489 0=— «1497 
mes os eeu 

= 
OHTSP Ie ate 489 Si2 | 
AMTYPe= 000000 1489 ©: 1520 | 
AMTYP3= 000000 1489 =: 1523 - 
AMTYP4= 000000 i489 0s: 1526 | 

000000 14891494 
APRIOR= 900000 1489 
APTCSU= pape 6222 63948 | 
| RPTENV= 1 6169 6215 6350 63928 

APTSIZ= 000200 2612 9s 63918 
APTSPO= 000100 6217 6352 63938 
ASWREG= 0090 i489 ©=.: 1502 
aTESTN= 1489 = 1493 
AT 005376 16738 5087 5107 5134 
AUNIT = 000000 1489 = 1496 : 
AUSWR = 000000 i489 §=-: 1503 
AVECT1= 000000 i469 =: 1528 
AVECTe= 000000 1489 


4 1529 
BADHOR 005372 16638 2692% 5877 
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DZREIC.P11 
BADTMO O31 
BAI = ccented 
aalg = 000400 
Bal? = 001000 
if = 1 
700 = 
+f 3 
T02 = 
BITO3 = 
SITOY = 
BITOS = 
IT06 = 
iT = 
IT = 
1703 = 
a 
= 
B:t%9 = 
= 
= 
ettt§ 
BIT14¥ = 
Ete = 
Te = 
T3 = 10 
BIT4 = 900020 
BITS = 000040 
BITE = seieaey 
Ps 
Etta = S554 
BITS = 001 
BPTVEC= 000014 
B = 0002 
BeEseu Doe370 
BSE22S BBS355 


CFMT 010000 
CHKFLG 001552 
CHKMSG O2eS604 
CKCERR 026336 


7 eee eee 
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PART 3 
- 53328 
11488 4030 
11348 
ths ll 
iSeos 10 
10668 19 
10658 10 
10648 1074 
10638 1073 
10628 1072 
10618 107 
] a2 
l eS &£ 
1058s 1068 
10768 1164 
10578 113% 
1 = 113 
Fy 
ifeas | {i388 
10538 1140 
tees tide 
10748 381147 
10738 1148 
10728 81149 
10718 1132 
10708 1133 
106S# 1134 
10688 1135 
1084s 
11708 4041 
16478 3908 
16578 386 
16588 392 
73 2302 
16508 2790 
15848 3995 
1S818 8794 
li4e8 3282 
3712 3818 
3193 3346 
15798 $713 
11368 
11418 2859 
4402 4491 
11388 S684 
165i8 S171* 
3215 3240 
4599 4682 
5037 S041 
6089 6153 
11198 $900 
c7568 
S7348 
2713 574S8 


4332 


4234 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
4080 4134 4166 4240 
1163 1182 1728 2802 
6104 
bile 6180 
1729 
1154 1173 1205 1219 
1155 1174 phe 1e06 
ie ioe 17821868 
iiss te l7e iH 
ties 133 
1166 1185 
1167 1186 1199 1227 
1168 1187 1200 1e14 
1150 1169 1188 1201 
1151 1170 1189 lee 
1152 1171 1190 1203 
1153 1172 lee 1218 
4261 4515 
3313# 3969 4455 4548 
3910 393! 5539 5689 
5593 5693 
2906 2921 2973 2981 
3025* 3189% 5275 
volt 5562 5568 5570 
3301 3389 3368 3374 
405 4126 621 4827 
349 3565 3642 3789 
e3s9 3649 3873 3950 
4513 4576 4664 4723 
$3 5256 5260 
3294 3674 3805 3885 
4741 51718 
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4392 


4324 


4505 


4386 


4566 


4560 


6119 


S164 
1277 


$595 


ulus 
coocwn 
ME 8 
WO 


4249 


4420 


6090 . 


3682 
5898 
4343 
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ae 
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ee 
i 
| paTag, gouges 
| Bava: 801 
DaTAl 001530 
} wh = 190000 
| OCLO s 
Beek = sncece 
| DOT. = Soovoo 
CSume DOSS IE 
/DF1 © Sel ide 
| OF 10 Geile 


| OFL 061206 
| DFIS  QB1226 
4 01236 
| OFL 01252 

620 061272 
| OF2i 061306 
| OF22 61342 
| OFE3 061376 

e Clie 
«OFS 061126 

DFS Mil4#e 
«DFE CLINE 

OF? Cb ilée 
| DHL ce4012 
DHIO OS4S12 


o oer 
os * 
eG. 


/ 


Parr 3 
2634 4Sl38 
iives 
iSeSe = ST4te 

Ses 626) 
ret 2433 
Tete 7eh 
T2s5 7382 
a4 7452 
Tose are 
7 3 ae 
oo8e 8220 

Ssi2 232 
lig. & S28 
16058 
i5s38 3811 
oss7¢ 
iSSzs 296+ 
Ssot# S274 
16288 40293 
16238 
16408 44133 
11788 
11868 
li23s 

393s ited 
17378 ° 
11508 
173é8 47% 
as ies 
ise | i88; 
2143 else 
ecee e233 
2213 esis 
2453 2463 
2473 2478 
ees 
2403 2408 
2273 2383 
1993 83108 
1874 1689 
2908 goi8 
ae eu 

178 
2343 8932s 
eg47s 
2248 2252 
e2S3 ect3 
2438 eeces 
Beb1s8 
2458 b8bes 
177 782 
62 es3 
b40es 
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906-007-771 
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7078 708 
7161 71 
7224 7eeg 
7238 7307 
7232 7405 
7430 7455 
73893 7601 
rosy 763 
S4l6*# S417 
S402# S403 

Se 
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~ 






SES 5183 


71% 


ziti 
44 


Yount? 
wale 


Al 


8 











848os 


e03e 486: BS 8 





2s4: 





rm B.i eee 
ing 
—_ . 8 4 
Owl & ge Og me ¢« & 
es ee ee 
tas 
3  ¢ 29% 78 os ae 2 3 
ee fe eet He ORS Og S # 
Sy 
“a2 Serene 32 moe met 6 eats = 3 
ge @ Steere TE oma Re RR Og a ni 
SO RRAET SREY BEARS BY eRRSNE AR BS = 7, sik 
€ tie Sawigeats, Gouere Me Satan wae S Neeee 
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wel 
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DHT 060304 
437 
DHS 054437 
DI = 
DISPLA 112 
ISPRE 174 
T s 100000 
Fa 
porn is 4 
ei Be 
Be: Se 
Baive 
By 
ive | Boeese 
Iv$  o0s540 
ORIVS o0sS4e 
DRIVE Se4 
BY Bs 
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DRYMSK= 900007 
DRYPTR O013b2 
DSc = 040000 
OSWe os 177570 
i = 
Brie = Berens 


OT19 060676 
OT13 «=: 060716 


OT34 060756 ..- 


17408 
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e70&s 
8713s 
7278 
8336 
8340 













8938 8S4e 8983 89s7 


2041 2046 o2348 





bis4# 6156s 

282) cia" 2863# 2066 e977# 3043 477) 4804 43652 

284s 29 4951 

3058+ 

1795 1800 1806 1812 1818 1823 1828 1833 1838 1843 
1863 1868 1878 1899 1919 $24 194 1950 1956 1961 
20le 2032 e037? 8§=6e0S2 2077 2107 el32 eljry 0 gite§8=—s 1 87 
ele; 0 6 — Rive) 6 give eiGeé@h e132 e197 = ge? eer Bee 
ee7e 77 ee e3 e307 e3le@ 0 317 
2337 37 e412 ai? “ee eH? 
2472 

1904 

e0e 

2217 
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SES 21 
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Ta: tak baw 
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~*~ osTi¢e 
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e736 “414 
7 eee 7978 ss 
é 2282 2432 4152 4188 
® 2s 2427 4102 4152 
2" pug? | 4102 wis 
18 3° © 00s a3 6CU 40S$ 4255 
| ae x55 5a ei 38 = se 4188 2 4518 
| OTs peop 4 seo 8807s 3670 331 = 3671 — 4102 sy 4352 4518 
p76 Setess 123 3e37 4735 3291 4059 4196 4412 
\ 3 | le4e } 4676 3257 4735 3879 4150 43€3 
at beste 12258 eee 3237 4676 3802 4100 4186 
o75_ O= 900100 wis isl 3671 4057 4150 
eCL = 000100 l2318 4520 3589 3877 4100 
0. BRH™ wale 3291 4735 3800 4057 
T= 000400 1eAre aon ee 3877 
D. CART sco28 4596 35 3800 
T = 900400 : wf 3698 4534 
7 2 boneto 1 5° ‘ 4150 
"Gener cama “t 3299 30004150 
DRA = DO0040 1 aoe 4733 3668 4151 
D. 
ooo200 ‘38 ? 
D.DRDY= i a Se 7) «S817 
“BESTS Basoss iis 360i 8-36 
BBs = Peooae 15338 3237 
; 1000 Heaee sais 
Poe ieee 
| Bagels soto est ; 
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